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pagar, faz sua programação financeira, 
efetua a folha de pagamentos e 
administra minuto a minuto as suas 
atividades. 

Detalhe importante: o novo 
TK 2000 II, com Multicalc, pode 
intercambiar planilhas com 
computadores da linha Apple® 

E, como todo business Computer 


De hoje em diante nenhuma 
empresa, por menor que seja, pode 
dispensar o TK 2000 II. Por que? 

0 novo TK 2000 II roda o 
Multicalc:a versão Microsoft do 
Visicalc? o programa mais famoso em 
todo o mundo. 

Isto significa que, com ele, você 
controla estoques, custos, contas a 


Apresentamos o 

TK 20001. 

Ele roda o programa 
mais famoso 
do mundo. 


que se preza, ele tem teclado 
profissional, aceita monitor, diskette, 
impressora e já vem com interface. 

Além de poder ser ligado ao seu 
televisor (cores ou P&B), oferecendo 
som e imagem da melhor qualidade. 

Portanto, peça logo uma 
demonstração do novo TK 2000 II, nas 
versões 64K ou 128K de memória. 

A mais nova estrela do show 
business só espera por isto para 
estrear no seu negócio. 

Preço (128 K): 

Cr$ 2.949.850 

/I4ICRODIGIX4L 

computadores pessoais 



* Sujeito a alteração sem prévio aviso. 


©Marca registrada da Visicorp. F,liada à ABICOMP ©Marca reyistrada da Apple Computer. 
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€DITORIfll 


O cometa de Halley está viajando por aí, passando no céu de muitos paí¬ 
ses. Muito tem-se falado sobre os efeitos "transcendentais" gerados pela pas¬ 
sagem deste cometa, em nosso tão sofrido planeta. Cometa de Halley com¬ 
bina bem com era espacial e bastante com informática por ela representar 
uma nova fase na história da humanidade e lembrar a todos nós que esta¬ 
mos vivendo numa época de mudanças rápidas, onde o tempo é contado 
em segundos, bites e bytes e não mais em horas. Faz-nos pensar sobre o 
futuro e principalmente a respeito de computadores, pessoas e mundo. A 
relação entre esses três pilares é um dos pontos fundamentais para o futuro 
da humanidade, pois deles dependem a meu veç à conquista de um nível 
de entendimento tal que possibilite ao homem a construção de um mundo 
que não seja perfeito, mas pelo menos mais justo e pacífico. 

Este assunto na verdade não tem muito a ver com o tema da revista e nem 
tão pouco com sua linha editorial. Mas, o fato de termos dedicado a capa 
desta edição ao Cometa de Halley, relacionando-o com o nosso universo de 
trabalho (a Microinformática), levou-me a colocar para vocês algumas in¬ 
dagações a respeito dos três pilares deste mundo informático. 

O cometa de Halley está presente em nossa Seção de Assembly e espera¬ 
mos que vocês aproveitem bastante. Merece atenção também a matéria "Mú¬ 
sica por computador", um artigo interessante que possibilitará compor can¬ 
ções tanto no TK 90X como em outros micros. 

De resto, continuamos à disposição dos leitores, e sempre abertos às no¬ 
vas idéias. 

Pensem um pouco, na hora de verem o Cometa, nos bons fluidos que 
ele está trazendo para todos nós. 

Até mais! 


Ana Lúcia de Alcântara 
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Venha conhecer nosso show room e 
participar ativamente das mais recentes 
e revolucionárias tecnologias a respeito 
dos microcomputadores. Além de 
fazer amigos, eventualmente poderão 
descobrir o que um Microcomputador 
poderá fazer por vocês ou pela sua 
Empresa. 

Trata-se de uma perfeita e balanceada 
estrutura para representar à altura, as 
principais Empresas de Computadores 


tais como: Texas, Zirok, Microdigital, 
Dactari, Polymax, Unitron, Elebra, 
Aceco, Prológica, Apple II, Savage, 
Microcraft, CMA, Phillips, Ringo, 
Matrix... 





Intellivision 



MfJUyUÍI- 


RUA SANTA EFIGÉNIA, 568 - SP - FONE: 221-9055 










































































































































































Prezado Senhor ; 

Ao utilizar o programa ‘ Arquivo bibliográfico 
no TK 2000”, não entendi o significado da instru¬ 
ção MP. 

Flávio de Almeida Carvalho. 

São Paulo - SP. 

Caro Flávio, 

A instrução “MP” é usada para acionar a se¬ 
gunda página de vídeo, quando se tem um progra¬ 
ma muito extenso para digitar e este ultrapassar 
os 6K destinados a primeira página de vídeo. 

Se esta instrução não for acionada antes de co¬ 
meçar a digitação do programa haverá um “cho¬ 
que” com a primeira página, causando a perda da 
maioria dos dados do programa. 


Prezado Senhor ; 

Eu tenho um TK-2000 e gostaria que vocês ex¬ 
plicassem, na seção de cartas, a utilidade das ins¬ 
truções XDRAW, ROT e SCALE no TK-2000. 

Émerson Fernandes. 

Sorocaba - São Paulo 

Caro Émerson, 

Se você possuir a edição 23 de MICRO- 
HOBBY,na página 6 encontra-se a resposta sobre 
a instrução DRAW, dúvida esta levantada pelo 
Marcos Aurélio Lima Saraiva. 
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O formato do comando XDRAW é o mesmo do 
DRAW; “XDRAW A AT X,Y”. Este comando é 
similar ao DRAW, diferenciando apenas no aspecto 
da cor, onde a cor usada para desenhar a figura 
é complementar àquela já existente. Com este 
comando pode-se suprimir da tela um traço já exis¬ 
tente sem alterar a cor de fundo da tela. 

A instrução ROT tem por função executar uma 
rotação na figura a ser traçada por DRAW a 
XDRAW, seu formato é o seguinte: “ROT=X”. O 
ângulo de rotação é especificado por X, onde este 
X pode variar de 0 a 255. 

ROT= 0 especifica uma rotação nula; 

ROT= 16 faz a figura definida por DRAW exe¬ 
cutar uma rotação de 90 graus no sentido horário. 

Quando ROT=64 ocorrerá a repetição do 
processo. * 

Scale determina o tamanho da figura a ser tra¬ 
çada por DRAW ou XDRAW, partindo do valor 
1 até 255. 

Sua forma geral é assim representada: “SCA¬ 
LE = X”. 

SCALE = 1 são recomendados apenas 4 valo¬ 
res de rotação (0,16,32 e 48);. 

SCALE = 2 são recomendados 8 rotações. 

E assim por diante. 


Prezado Senhor ; 


Gostaria de saber se há uma errata no progra¬ 
ma BOLOGNA & MIL A NO ou se o erro foi meu, 
pois o dito cujo não roda até o fim. (Só vai até 
a parte na qual pergunta quantas catedrais, palá¬ 
cios e etc. quer comprar e, ao digitarmos “0”, vol¬ 
ta ao começo). 

Quanto ao mesmo programa (BOLOGNA & 
MI LANO p/TK-2000), qual é o carectere gráfico 
que está nas linhas 511 (r/rjr/rj)m 517 (rj PrYrK) 


e 518 (rT 


AAA rU)? 


Eduardo Rigobelli. 
São Paulo - SP.. 


Caro Eduardo, 


Não foi publicada nenhuma errata do progra¬ 
ma BOLOGNA & MIL ANO. Talvez, você tenha 
deixado passar algum item na digitação do pro¬ 
grama, pois garanto a você que este programa es¬ 
ta funcionando normalmente. Releia as instruções, 
que aparecem no interior do programa, pode ser 
que algum item tenha ficado mal entendido. 

Na linha 517 você deve proceder da seguinte ma¬ 
neira: digite em primeiro lugar CTRL B para po¬ 
der acionar os caracteres gráficos, em seguida di¬ 
gite SHIFT C, SHIFT G três vezes e SHIFT V. 

Na linha 518 digite CTRL + SHIFT A, SHIFT 
K três vezes e CTRL + SHIFT S. 

Quanto a linha 511, entraremos em contato com 
o autor para obter maiores informações. 

Prezado Senhor, 

O meu “problema” é que, gostaria que meus 
programas no TK 2000 tivessem auto Start, ou se¬ 
ja, que não precisassem de um RUN, isso para os 
programas em Basic. 


Já para os programas em linguagem de máqui¬ 
na, gostaria de uma dica:que dado o endereço ini¬ 
cial, o endereço final e o endereço de início do pro¬ 
grama, esse programa tenha também o auto Start. 

Carlos Yuiti Tsuj imoto 
São Paulo - SP. 

Caro Carlos, 

Todos os programas em Basic digitados no 
TK-2000, se iniciam em Linguagem de Máquina 
a partir do endereço $0800 e terminam em um en¬ 
dereço qualquer, dependendo da extensão do 
programa. 

Podemos fornecer os endereços corresponden¬ 
tes aos comandos LOAD e RUN, que são respec¬ 
tivamente CBEE e CC 37, onde estes são os pon¬ 
tos de entrada dessas rotinas. 

Para seu interesse foi publicado o livro “Enten¬ 
dendo a ROM do TK-2000/II”, para maiores in¬ 
formações entre em contato conosco. 


Prezado Senhor, 

Gostaria de obter maiores informações sobre o 
programa “LABIRINTO” (publicado na Micro- 
hobby número 21, página 42, Programa para 
TK-2000) de autoria de Mario e Fabio. 

Digitei todas as linhas conforme instruções, po¬ 
rém o programa “roda” sozinho sempre indican¬ 
do: placar = 0 quer outro jogo? e, não obedece 
a nenhum comando e, por outro lado, não vejo 
nenhuma instrução de comando neste programa!. 

Kujoshi Ihsijui. 

São Paulo - SP. 

Caro Kujoshi, 

O programa Labirinto, publicado na edição 21 
da Microhobby, foi testado novamente e funcio¬ 
nou perfeitamente sem apresentar nenhum tipo de 
erro. 

Gostaria que o Sr. fizesse um novo teste, talvez 
na hora de digitar o programa algum item possa 
ter sido omitido. Caso continue apresentando o 
mesmo tipo de problema, peço que nos comuni¬ 
que, explicando em que área do programa está 
ocorrendo a falha. 


Prezado Senhor, 

Qual é a maneira mais simples de se salvar, em 
fita, os caracteres especiais do comando UDG? 

Como improvisar o comando SCROLL do TK 
85 p/ o TK 90X? 

E finalmente para se salvar um programa em 
uma fita, quantos caracteres eu posso digitar? 

Ricardo Iskandar. 

Poá - SP. 


Caro Ricardo, 

Para salvar os caracteres da UDG, você deve se¬ 
guir o seguinte procedimento: SAVE “nome do 



programa” CODE USR “a”, 21*8. Sendo o primei¬ 
ro número a quantidade de caracteres que deseja 
salvar. 

O comando SCROLL para ser inibido no TK 
90X você deve digitar POKE 23692,255, então es¬ 
te se tornará indefinido. Veja Manual na página 
C-3). 

Quando for salvar um programa em fita, e for 
dado um nome a este, o nome do programa deve 
conter no mínimo um caractere. 


Prezado Senhor, 

Como o programa é muito grande , eu resolvi di¬ 
gitar um pouco a cada dia, gravando no final da 
digitação. No dia seguinte, eu carregava a parte já 
digitada na memória do TK-2000, digitava mais 
um pouco e depois gravava novamente. Mas um 
dia, ao carregar o programa, notei que quando a 
contagem hexadecimal chegou a 18, começaram a 
aparecer na tela listras horizontais. Deixei o pro¬ 
grama carregar até o fim, e quando listei ele só foi 
até a linha 315, apesar de eu ter batido até a 450. 


Clube de 

TK 85 


Marcelo Pizarro 
R. Tucuna, 273 - Pompéia 
05021 - São Paulo - SP. 

Lauro Corrêa de Faria 
Caixa Postal 1743 
24120 - Niterói - RJ 

Luiz Ricardo Micelli 
R. Espírito Santo, 2006/103 
30000 - Belo Horizonte - MG. 

Paola Enrica Ricci 

R. Albuquerque Lins, 129 - 

Sta.Cecilia 

01230 - São Paulo - SP. 

Raul Portella 

Av. Vise. de Albuquerque, 694 - 
Apt.701 L 

22450 - Rio de Janeiro - RJ. 

Rodrigo Chiesa 

R. Fellix Spinato, 674 - 

Cinquentenário 

95100 - Caxias do Sul - RS. 

Rui Domingues 
R. Gal. Barcelos, 379 
24400 - Rio de Janeiro - RJ. 

Yuri Alexei Cairof Sampaio 
R. Paulino da Silva Lavandeira, 
204 

17500 - Marilia - SP. 




Em outro dia, tomei coragem e digitei desde o 
início até a linha 666, mas ao chegar a esta tive 
de parar, e no dia seguinte, ao carregar o progra¬ 
ma aconteceu exatamente o mesmo. 

André Luís A. dos Santos. 

Rio de Janeiro - RJ. 

Caro André, 

Devido a grande extensão deste programa, que 
ocupa toda a primeira página do vídeo, é necessá¬ 
rio digitar MP antes de começar a digitar o pro¬ 
grama. (Veja o Manual de Operação na página 
197). 

Certamente você não digitou MP, sendo este o 
motivo que causou a perda da metade do 
programa. 

Mesmo digitando o programa por parte, você 
deve seguir o seguinte esquema: antes de começar 
a digitar o programa acione MP, logo depois sua 
tela ficará cheia de traços horizontais então, dê um 
HOME e comece a digitação. Suponhamos que vo¬ 
cê queira gravar este trecho digitado, o processo 
é o de costume LOADT (RETURN). Quando vo¬ 
cê for começar o trecho que digitou acione a MP 
antes, e depois carregue o programa, sempre obe¬ 
decendo esse processo para não ficar de cabelos 
arrepiados. 


Usuários 

TK 2000 

Eduardo Rigobelli 

R. Casa Forte, 427 - Apt. 92 

02336 - São Paulo - SP. 

Área de interesse: Geral 



Lilian Cristina Pricola 
R. José Flavio, 187 - Penha 
03642 - São Paulo - SP. 

Marcelo Martins 

R. Benedito Camargo Santos, 

114 

18100 - Sorocaba - SP. 

Marcelo Passini Mariano 

R. José Pinto de Almeida, 505 - 

Centro 

13400 - Piracicaba - SP. 

Marcelo Valle Franco 

Caixa Postal 4583 

20001 - Rio de Janeiro - RJ. 

Marco Antonio T. Seabra 
R. Prof. Luis Rosa Nova, 95 
02334 - São Paulo - SP. 

Renato Teofilo de Carvalho Jr. 

R. Dr. Messut, 136/61 - Vila 
Bastos 

09000 - Santo André - SP. 

TK 90X 

Werner Mathi 
Caixa Postal 323 
19900 - Ourinhos - SP. 

(Também possui TK 85) 


Traga este anúncio e ganhe um brinde na compra de 
qualquer item 


PROGRAMAS 
APLICATIVOS PARA 
SEU MICRO 


• Orçamentos e custos de Cons- Valor 

truções Civis, para APPLE, em 
Diskete . 48 ORTN 

• Orçamentos e custos de Cons¬ 
truções Civis, para SINCLAIR, 

TK 85, CP 200 e outros, grava¬ 
dos em fita Cassete. 8 ORTN 

• AGRIMENSOR - Cálculo da 
Planilha Analítica, para APPLE, 

em Diskete. 12 ORTN 

Para TK 2000, em fita Cassete 10 ORTN 
Para TK 85, CP 200 e outros .. 6 ORTN 

• Cálculo de lista de preços para 
fabricantes, para SINCLAIR, 

TK 85 e similares. 6 ORTN 


• Blocos "PRINT e PLOT" para 
seu lay out em seus programas 
profissionais com 100 páginas 
de formulários, para linha SIN¬ 
CLAIR, TK 85, TK 83, CP 200, 

RINGO, etc. 

1 BLOCO.0,5 ORTN 

3 BLOCOS. 1 ORTN 

— Pagamento com pedido (despacho imediato) ou 
por reembolso com 10% de acréscimo. 

Envie seu pedido para: 

Informática Dinâmica Uda 


Rua Minas Gerais, 56 - CEP 98900 - Santa Rosa - RS 
Telefone: (055) 512-2819 

^CONDIÇÕES ESPECIAIS PARA REVENDEDORES^ 















Teclado 
profissional 
para os 
micros 
pessoais 

Os usuários de microcomputadores da 
linha Sinclair (TK 82, 83, 85 e 90X), que 
quiserem utilizar os seus equipamentos em 
atividades empresariais agora terão a 
oportunidade de transformá-lo em um mi¬ 
cro profissional. 

A novidade vem da Arteplast, empresa 
mineira, que desenvolveu o teclado profis¬ 
sional Speed. Lançado há um ano no mer¬ 
cado, a inovação, no momento, é o Kit que 
o acompanha, onde o próprio usuário po¬ 
derá fazer a adaptação com o auxílio de 
um manual de instalação. As ligações do 
teclado ao micro são realizadas através de 
conectores ligados aos resistores e aos dío¬ 
dos, dispensando-se assim o teclado do mi¬ 
cro que continua operando normalmente. 

O teclado apresentado pela Arteplast é 


do tipo profissional, de "fiber glass" pa¬ 
drão de máquina de escrever, com swit- 
ches de acionamento mecânico e indepen¬ 
dentes. Possui teclas com gravação inde¬ 
lével, mantendo as mesmas identificações 
do teclado original do micro. 

A Arteplast desenvolveu três modelos 
de teclado, o SP-400, que acondiciona o 
micro, a expansão de memórias de 16 ou 


64K e a fonte de alimentação; o SP-300, 
uma versão mais compacta, para micros 
menores do tipo TK 82 ou TK 83; e o 
SP-230 que acomoda apenas o teclado. 
Eles poderão ser encontrados em lojas de 
cine-foto-som e os seus preços estão em 
torno de Cr$ 686.000 (SP-400), Cr$ 
426.000 (SP-300) e Cr$ 362.000 
(SP-230). M.R.. 


Datasul amplia 
sua atuação 

M 

no mercado 


As pequenas e médias empresas, que se 
utilizam de minis e microcomputadores de 
8 e 16 bits, agora terão uma nova opção de 
Softwares. A Datasul, empresa catarinen¬ 
se, especializada no planejamento e desen¬ 
volvimento de softwares, terá a partir des¬ 
te mês uma filial instalada em São Paulo. 

Sediada em Joinville, ela conta com pro¬ 
gramas especificamente projetados para 
o mercado brasileiro, para as áreas de Pro¬ 
gramação e Controle de Produção, e Sis¬ 
temas Integrados (administrativos, contá¬ 
beis e fiscais). 

Com uma equipe comercial, administra¬ 
tiva e técnica de 15 pessoas, dirigidas pe¬ 
lo engenheiro Miguel Abuhab, as novas 
instalações da Datasul localizam-se na Rua 
Cerro Cora, 474 e o telefone é (011) 
262.48.00 M.R. 


Cincom Systems 
apresenta novo programa 
para o mercado de softwares 


Mais uma vez pioneira no desenvolvi¬ 
mento de softwares para equipamentos de 
grande porte, a Cincom Systems lançou 
este mês o primeiro sistema relacional de 
gerenciamento de banco de dados: o 
SUPRA. 

Segundo o gerente de produto da Cin¬ 
com, Peter Breeze, o SUPRA foi criado para 
agilizar e facilitar o acesso do usuário aos 
dados armazenados no computador, repre¬ 
sentando um grande passo para o proces¬ 
samento distribuído. E acrescentou que no 
Brasil, mais de 130 clientes utilizam siste¬ 
mas de dados e, desde que possuam um 
equipamento IBM 4331 ou de maior por¬ 
te poderão migrar para o SUPRA. Já àque¬ 
les que não trabalham com computadores 
IBM, a Cincom oferece a versão ULTRA pa¬ 


ra equipamentos DEC/VAX, fabricado no 
Brasil pela Elebra com o modelo MX-850. 
Pelo fato da Cincom desenvolver softwa¬ 
res visando o mercado mundial, os seus 
produtos não necessitam de adaptações. 
No caso do SUPRA os técnicos brasileiros 
terão apenas de traduzir para o português 
a parte da linguagem para consultas usa¬ 
das no acesso às informações. 

Conforme o Diretor Geral da Empresa, 
José Lauletta Júnior, "o SUPRA é resulta¬ 
do de sete anos de pesquisa e desenvol¬ 
vimento e de um investimento de 50 mi¬ 
lhões de dólares". Enquanto que a maio¬ 
ria das empresas investem entre 12 a 16% 
nestas áreas, a Cincom emprega de 25 a 
30% da sua receita bruta para este 
fim. M.R 
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Um shopping para informática 


Um empreendimento pioneiro. Assim 
pode ser considerado o lançamento, em 
breve, do primeiro shopping-center total¬ 
mente dedicado à informática. Localizado 
no estratégico bairro carioca do Largo do 
Machado, a meio caminho entre as zonas 
sul, norte e centro, o Rio-lnfoshopping será 
inaugurado na primeira quinzena de de¬ 
zembro e promete agitar aqueles que es¬ 
tão envolvidos no setor. 

O prédio pertence ao grupo Luiz Seve- 
riano Ribeiro que decidiu dar ao imóvel 
uma destinação "nobre" e não torná-lo 
apenas mais um shopping-center como os 
tradicionais. São 11 andares de escritórios 
abrigando em sua maioria, firmas ligadas 
à informática, um piso térreo onde estão 
localizadas 30 lojas; no segundo pavimen¬ 
to estão instalados dois cinemas do circui¬ 
to Luiz Severiano e mais dois andares de 
garagens cobertas, com capacidade para 
suportar até 1.800 carros por dia, em re¬ 
gime de rotatividade. 

Depois de construir o imóvel, o grupo 
proprietário contratou a firma Novamarca 
Imobiliária que se encarregou de estudar 
a melhor destinação para o local. Depois 
de muitos estudos, a Novamarca chegou 
a conclusão que o mercado de informáti¬ 
ca é inesgotável; crescente e nada me¬ 
lhor para ocupar as 30 lojas do que comer¬ 
ciantes que estivessem envolvidos com a 
área. A idéia deu certo e em 15 dias a fir¬ 
ma lançou e comercializou o empreendi¬ 
mento. 

0 sucesso é explicado pelo diretor de 
comercialização, Roberto Nunes: - "O 
shopping tem uma excelente localização, 
pois há o metrô quase na porta, ligando 
o local às zonas sul e norte, além do cen¬ 
tro, e uma farta disponibilidade de ônibus, 
o que facilita o acesso. Depois de pesqui¬ 


sarmos o mercado, detectamos que não 
havia nenhum local no Rio de Janeiro que 
concentrasse, ao mesmo tempo, fabrican¬ 
tes de equipamentos, suprimentos, soft¬ 
ware, enfim, tudo aquilo que o usuário nor¬ 
malmente necessita. A nossa idéia, por¬ 
tanto, foi unir as duas pontas que ficavam 
espalhadas: o consumidor, fosse ele uma 
empresa ou um indivíduo interessado so¬ 
mente em ter um micro pessoal e as in¬ 
dústrias, que dependem de pontos de co¬ 
mercialização. A idéia foi centralizar todas 
as atividades ligadas à informática". 

O consumidor que procurar o Rio- 
lnfoshopping vai encontrar do "parafuso 
ao computador", pois lá, segundo seus 
idealizadores, será um pólo gerador de no¬ 
vidades. Para se ter uma noção exata do 
projeto, basta saber que as lojas foram alu¬ 
gadas pelas seguintes empresas: Moore 
Formulários, Data Ribbon, Ciência Moder¬ 
na, Mikro's Techbox, Racimec, Rent-a-type, 
Andraus, CRT-Consultoria, Computware, 
Vídeo Clube do Flamengo, Ret Informáti¬ 
ca, Unitel e Videomática. 

Isso significa que num mesmo local as 
empresas estarão comercializando equipa¬ 
mentos, suprimentos, software, serviços, 
e videogames. Haverá também um clube 
de micro, onde os usuários poderão se reu¬ 
nir para trocar idéias, desenvolver aplica¬ 
tivos. O shopping, na verdade, facilitará a 
vida principalmente daqueles que estão se 
iniciando na área e não sabem bem onde 
procurar determinado produto ou serviço 
que possa suprir as suas necessidades 
imediatas. 

Uma outra novidade que o Rio- 
lnfoshopping introduzirá na cidade é a uti¬ 
lização de cinemas para fins diferentes dos 
habituais. Com mil lugares cada uma, as 
salas de projeção serão transformadas du¬ 


rante o dia, horário em que ficam ociosas, 
em enormes auditórios ond§ serão reali¬ 
zados cursos, palestras, conferências e se¬ 
minários, obviamente dentro de um único 
assunto: a informática. 

Além da área ocupada pelo saguão dos 
cinemas onde haverá a possibilidade da 
realização de mostras e feiras de peque¬ 
no porte, o shopping contará com um "te- 
croom", que os lojistas poderão utilizar pa¬ 
ra exposição e lançamento de produtos. 
Aliás, os lançamentos das linhas de equi¬ 
pamentos para o ano que vem já deverão 
acontecer no novo espaço, pois a procura 
tem sido grande por parte daqueles que 
não tiveram a sorte ou a boa visão de re¬ 
conhecer o empreendimento como uma 
idéia inovadora. 

Neste mês de novembro estará sendo 
inaugurada a Associação de Lojistas do ln- 
foshopping que, naturalmente, terá vanta¬ 
gens sobre as demais. É que todos esta¬ 
rão voltados para um único objetivo, pro¬ 
mover o shopping enquanto local de lan¬ 
çamento de novidades de informática, ao 
invés de se preocuparem em projetar úni¬ 
ca e exclusivamente o seu próprio negó¬ 
cio, já que são do mesmo ramo e o públi¬ 
co alvo é o mesmo. 

A expectativa dos lojistas é justificável, 
assim como a dos consumidores que já es¬ 
tão procurando a galeria no Largo do Ma¬ 
chado em busca de seus "insumos", ape¬ 
sar de o local ainda não ter sido inaugura¬ 
do. Para a abertura oficial do Infoshopping 
estão sendo planejadas algumas surpre¬ 
sas, que o diretor da Novamarca prefere 
deixar em segredo. Mas, quem sabe se pe¬ 
la proximidade do Natal na época da inau¬ 
guração, o Rio-lnfoshopping não abrirá 
suas portas ao público mostrando um be¬ 
lo presépio eletrônico? Fátima França. 


Automação e a Sociedade no II CONAI 

a 


"Só com a ampliação do diálogo é que 
será possível frutificar convicções." -Foi 
com essas palavras e esse espírito que o 
Secretário da Indústria, Comércio e Tec¬ 
nologia de São Paulo, Einar Kok abriu o seu 
discurso no lançamento do II CONAI - 
Congresso Nacional de Automação Indus¬ 
trial, onde também é presidente de honra. 


Com o tema Automação e Sociedade, o 
II CONAI, promovido peía SUCESU, se rea¬ 
lizará de 25 a 29 de novembro, no Palácio 


das Convenções do Anhembi. Durante o 
evento, para o qual estão sendo esperados 
cerca de dois mil participantes,serão de¬ 
batidos aspectos variados da automação 
industrial e seus impactos na sociedade. 
O programa ternário é composto por qua¬ 
tro atividades básicas: palestras proferidas 
por especialistas brasileiros e estrangeiros; 
sessões técnicas compostas por trabalhos 
sobre robótica, software básico, hardwa¬ 
re básico, entre outros; sessões setoriais 
cujo objetivo é discutir com os participan¬ 
tes do Congresso a situação atual da Au¬ 


tomação Industrial; e painéis diários que 
serão efetuados para melhor avaliar os re¬ 
sultados de cada setor. 


Paralelamente, empresas como Itautec, 
Elebra, Indústrias Villares, Datatec, Video- 
tek e outras, estarão participando de uma 
exposição de equipamentos, onde será 
exibido, em uma área de aproximadamen¬ 
te 1.400 metros quadrados, o que há de 
mais moderno sendo produzido no 
Brasil. M.R.. 
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Criatividade 
no uso de uma 
nova tecnologia 



Informator - uma escola diferente, onde 
o essencial está em fazer com que a crian¬ 
ça aprenda a desenvolver o seu raciocínio 
e a sua criatividade, tendo como instru¬ 
mento o computador. 

Foi com essa filosofia que o professor 
e Engenheiro Hazime Sato fundou a Escola 
- Centro de Cultura Informática, baseado 
nas teorias do educador suiço Jean Piaget, 
utilizando a linguagem LOGO. 

Segundo Sato, a idéia de desenvolver 
um trabalho deste gênero surgiu em 1981, 
no Congresso de Informática, quando 
manteve um contato mais estreito com as 
idéias do idealizador da linguagem LOGO, 
o matemático e professor norte-americano 
Seymour Papert, convidado a participar do 
evento. 

Papert, após um trabalho de 7 anos na 
Suiça com Jean Piaget, resolveu por vol¬ 
ta de 68 tentar as idéias educacionais pia- 
getianas com novas tecnologias. 

E assim, formou-se o projeto LOGO, ela¬ 
borado juntamente com um grupo de es¬ 
pecialistas em pedagogia e Ciência da 
computação, desenvolvido principalmen¬ 
te no Laboratório de Inteligência Artificial 
de Massachusetts - MIT. 

Introduzir o computador como instru¬ 



mento educacional é o principal objetivo 
do LOGO e como afirma Sato "a ênfase pe¬ 
dagógica desta linguagem é a exploração 
das idéias. O LOGO ajuda o iniciante no 
uso do computador a analisar uma tarefa, 
a dividí-la em tarefas mais simples e a 
construir um procedimento estruturado 
para realizá-la. O LOGO não impõe, enco¬ 
raja o aluno a construir a sua própria es¬ 
trutura intelectual/' 

A aplicação dessa metodologia come¬ 
çou, no ano passado, em duas escolas de 
São Paulo que, conforme Sato ressaltou 
trouxe um resultado gratificante. E, como 
continuação dessa realização, no dia 27 de 
março deste ano, a INFORMATOR 
"nasceu". 

Dirigida a jovens de 9 aos 15 anos, a ln- 
formator visa: ambientar as crianças no 
uso de microcomputadores, através de um 
desenvolvimento pessoal; apresentar uma 
visão física e concreta do que vem a ser 
um micro, por intermédio da linguagem LO¬ 
GO; e dar uma visão geral sobre o mundo 
da informática. Esse trabalho é efetuado 
por professores, de primeiro grau, previa¬ 
mente treinados, num total de 12 turmas. 
A Escola, atualmente, conta com 14 mi¬ 
cros do tipo Apple (64K Bytes), da 
Spectrum. 


O Curso de Introdução a Informática, 
tem a duração de 8 meses e é dividido em 
4 módulos, que englobam: dramatização, 
lógica, textos, caracteres, aritmética, co¬ 
mo recursos para o aprendizado. Entre ou¬ 
tras inovações desse estilo educacional 
encontra-se a utilização de turmas mistas, 
com relação a faixa etária dos alunos. Es¬ 
se recurso, segundo Hazime Sato, propi¬ 
cia uma comunicação muito mais intensa 
entre os participantes e um aproveitamen¬ 
to extremamente rico, devido a troca de 
experiências de cada um. 

Sendo assim, Sato concluiu "O novo en¬ 
foque conduz o desafio educacional à uti¬ 
lização dos meios que a informática ofe¬ 
rece para dinamizar o processo de racio¬ 
cínio, de criação, de experimentação, sem 
dispender um grande esforço na aprendi¬ 
zagem do instrumental disponível, isto é, 
queremos homens que raciocinem e criem, 
não meros "choffeurs" de computado¬ 
res!". 

No próximo ano, já estão previstos cur¬ 
sos de "Iniciação a Robótica" e "Música 
Eletrônica". Os interessados em conhecer 
essa experiência podem procurar a Infor- 
mator na Av. República do Líbano, 592. 
Mônica Rocha. 
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Guia do Operador 


COMANDOS BÁSICOS 

fj\ 0shofTK/McGfw4« INTERCOR1» 00 BRASIL 


da Editora 


McGraw Hill 


Lotus 1-2-3 e IBM PC são os dois guias 
de operação que a Editora McGraw Hill es¬ 
tá colocando no mercado editorial. 

Os dois "livros de bolso" trazem as prin¬ 
cipais informações sobre os comandos 
que permitem ao usuário utilizar o micro 
(IBM-PC) e sua planilha eletrônica (Lotus 
1-2-3). 

Os dois pequenos guias estão sendo 
vendidos nas principais livrarias do país. 
Os preços dos Guias são, respectivamen¬ 
te, Cr$ 19.000,00 para o Lotus 1-2-3 e Cr$ 
15.000,00 para o IBM-PC. 



FIEO 

ganha 

curso de P.D. 

A FIEO - Fundação Instituto de Ensino 
para Osasco oferecerá no ano que vem, o 
Curso Superior de Tecnologia em Proces¬ 
samento de Dados, ministrado pela Facul¬ 
dade de Informática, dessa Instituição. 

Aprovado por unanimidade pelo plená¬ 
rio do Conselho Federal de Educação, es¬ 
te curso conta com instalações perfeita¬ 
mente adequadas para atender todas as 
necessidades da Faculdade, inclusive uma 
biblioteca com um acervo especializado no 
campo da Informática. 

No laboratório, onde serão realizadas as 
aulas práticas, já foram instalados inicial¬ 
mente 5 microcomputadores Itautec 7000 
(de 8 bits), juntamente com uma impres¬ 
sora. Esses equipamentos também serão 
usados como terminais de vídeo ligados 
a um computador IBM do Centro de Com¬ 
putação do Bradesco, a partir do segundo 
período do curso. 

0 curso em Processamento de Dados 
tem a duração de 3 anos e nesse primeiro 
vestibular foram abertas 100 vagas. Os in¬ 
teressados deverão entrar em contacto 
com a FIEO que, localiza-se na Rua Narci¬ 
so Studini, 883, Osasco.M.R.. 


Ensino de 
Informática 
em Porto Alegre 

"Inteligência: apenas uma questão de 
usar a sua". Com esse tema, foi inaugura¬ 
da, em Porto Alegre, a Inteligência treina¬ 
mento em Informática, uma escola de 
computação, que visa desmistificar a 
informática. 

Instalada em uma área de 550 m 2 , a 
instituição conta com 35 computadores 
para as aulas práticas; um CPD, próprio pa¬ 
ra a monitoria dos cursos, além de recur¬ 
sos didáticos e audio-visuais. Segundo o 
sócio-gerente da empresa, Renato Dable, 
o aluno já no primeiro contato com os 
professores é orientado para as suas reais 
necessidades, nesta área. E conclui "a In¬ 
formática é um grande mercado de traba¬ 
lho, porém apenas para aqueles que soma¬ 
rem uma grande bagagem de conhecimen¬ 
to técnico". 

Entre os cursos oferecidos na Inteligên¬ 
cia estão: Digitação, Operação de Micro¬ 
computadores, Operação IBM, Operação 
Burroughs, Programação Basic, Basic 
Avançado, Programação Cobol e Cobol 
Avançado. 

A Inteligência treinamento em Informá¬ 
tica situa-se na Rua dos Andradas, 1560 
- 18.° andar.M.R.. 


Calendário 
do Mês 


De 12 a 26/11 - Visicalc - Belo Horizon¬ 
te, MG. Mikroinformática tel.(031) 
222-3035 e 201-9754 

12/11 - DBase II - São Paulo - SENAC. 
Tel.(011) 255-0066. 

De 13 a 20/11 - Planilhas Eletrônicas: Vi¬ 
sicalc e Supercalc - Rio de Janeiro. Inst. 
de Tecnologia ORT. Tel.(021) 286-7842. 

18/11 - Introdução ao DBase III - São 
Paulo. SENAC. Teí.(OII) 255-0066. 

De 18 a 20/11 - Comunicação de Dados 
- Uma nova dimensão para os micros. Rio 
de Janeiro. CKL - Treinamento Empresarial 
Avançado. Tel. (021) 242-2912 e 
222-1609. 

18/11 -Visicalc. São Paulo. SENAC. 
Tel.(011) 255-0066. 

De 25 a 27/11 - Processador de Textos: 
Wordstar. Rio de Janeiro. Instituto de Tec¬ 
nologia ORT. Tel. (021) 286-7842. 

De 25 a 29/11 - Seminário Mundial Ja¬ 
mes Martin. Rio de Janeiro. Compucenter. 
Tel.(011) 255-5988. 

25/11 - Wordstar. São Paulo. SENAC. 
Tel. (011) 255-0066. 

De 25 a 27/11 - Programação - Tendên¬ 
cias para o futuro. São Paulo. CKL - Trei¬ 
namento Empresarial Avançado. Tel.(021) 
242-2912. 

De 25 a 29/11 - Segundo Congresso Na¬ 
cional Automação Industrial!II CONAI). 
São Paulo - Anhembi. Informações (011) 
280-0990 e 34-6466. 

De 28/11 a 05/12 - Banco de Dados: 
DBase II. Rio de Janeiro. Instituto de Tec¬ 
nologia ORT. Tel.(021) 286-7842. 

De 02 a 06/12 - DBase III. São Paulo. 
Servimec. Tel.(OII) 572-5055 

De 04 a 06/12 - Lotus 1-2-3. São Paulo. 
Servimec. 

De 04 a 12/12 - Sistemas Videotexto. 
São Paulo. CKL - Treinamento Empresarial 
Avançado. 

De 05 a 06/12 - Redes de Microcompu¬ 
tadores. São Paulo. Abace (Associação 
Brasileira de Administração e Conservação 
de Energia). São Paulo. fel.(011) 285-2490. 

De 05 a 06/12 - Métodos de Avaliação >, 
Seleção e Utilização de Microcomputado¬ 
res. São Paulo. CKL - Treinamento Empre¬ 
sarial Avançado. 

De 05 a 06/12 - Estrutura de Micropro¬ 
cessadores. São Paulo. Abace. 

De 09 a 19/12 - Linguagem Basic: Um 
enfoque prático. Rio de Janeiro. Instituto 
de Tecnologia ORT. 
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RESENHA DE SOFTWARE 

Falcons 

Marcos Lorenzi 


Falcons para o TK-2000, mais um produto de qualidade da Cibertron Software. 


A Cibertron desenvolveu mais um jogo 
para a linha TK-2000 e compatíveis - o 
Falcons. 

Comercializado em fita cassete, o pro¬ 
grama é acompanhado do manual de ins¬ 
truções que orientam o usuário quanto ao 
carregamento e regras do jogo, e quais os 
equipamentos compatíveis com ele. 

0 jogo apresenta uma boa animação, no 


entanto, os efeitos sonoros não combinam 
muito com o seu estilo. As variações de 
cores têm como objetivo destacar a mu¬ 
dança de uma fase para outra e a tela apre¬ 
senta dois placares, além do número de 
naves que você dispõe para atacar. 

Uma das suas metas está em destruir 
as criaturas antes que elas acabem com 
você, a outra é superar todos os estágios 


até chegar a nave do chefe, tentando 
destruí-lo também. Se por acaso você for 
derrotado, um programa DEMO lhe mos¬ 
trará a tabela de pontos bem como as di¬ 
ferentes fases do jogo. 

Enfim, um jogo cheio de emoções, on¬ 
de você não conseguirá desgrudar do ví¬ 
deo, aceite o desafio e derrote estas terrí¬ 
veis criaturas. 


Teclas Divertidas 

Marcos Lorenzi 


Brincando e educando com o seu TK 90X. 


Ao término do carregamento do progra¬ 
ma, é mostrada as teclas de apresentação 
e em seguida um menu com as opções: 
jogo, nível e jogar. O programa é compos¬ 
to de três jogos e cada um deles possui 
quatro níveis. 

Este é um jogo, onde a criança, ao mes¬ 
mo tempo que se diverte, tem a possibili¬ 


dade de aprender noções básicas sobre o 
equipamento como: pressionamento da te¬ 
cla correspondente a letra que está sen¬ 
do exibida na tela, nomenclatura das figu¬ 
ras, entre outras coisas. 

Com o intuito de fazer com que a crian¬ 
ça comece a dar os seus primeiros passos 
no mundo da informática, este tipo de pro¬ 


grama estimula o público infantil para que 
futuramente ele possa se aprofundar na 
área. 

Esse programa será comercializado em 
fita cassete e junto com esta segue um 
manual de instruções que explica com de¬ 
talhes o funcionamento do mesmo. 


Análise de investimentos 

Marcos Lorenzi 


Utilizando o TK 90X em aplicações comerciais. 


Análise de Investimentos é um progra¬ 
ma voltado à aplicações comerciais, sen¬ 
do um sistema eletrônico de muita impor¬ 
tância no aspecto de investimentos de 
capital. 

0 programa possui um menu compos¬ 
to de seis itens, e a seleção de qualquer 


item é feita pela simples operação do nú¬ 
mero correspondente. 

A entrada de dados em qualquer um dos 
itens é executada quando pressionada a 
tecla (ENTER). 

O menu do programa é apresentado ao 


término da carga do mesmo. 

Esse programa será comercializado em 
fita cassete, e junto com ele segue um ma¬ 
nual de instruções que explica todo o fun¬ 
cionamento do mesmo, em uma lingua¬ 
gem de fácil compreensão. 
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RESENHA DE SOFTWARE 


Xadrez 


Marcos Lorenzi 


Ponha em "Xeque" a capacidade de seu TK 90X. 


Talvez você não seja um Karpov, mas 
mostre que é capaz de derrotar o seu equi¬ 
pamento numa partida de xadrez. 

Não sinta-se diminuído, use todos os 
seus recursos e ponha em xeque a inteli¬ 
gência do seu TK 90X. 

Ao término do carregamento do progra¬ 
ma, você terá opções para selecionar: 

J - jogar. 

C - alterar as cores do tabuleiro ou do 
vídeo. 

M - montar as peças no tabuleiro, como 
desejar. 

$Se a opção escolhida for "C" aparecerá 
duas perguntas em sua tela, uma dizendo 
se deseja mudar a cor do vídeo ou do ta¬ 


buleiro, e a outra refere-se a alteração das 
cores das casas, ou das casas e das peças. 

A opção "M" permite dispor as peças 
no tabuleiro de acordo com o seu desejo. 
Para tanto, você terá uma relação de co¬ 
mandos para auxiliá-lo. 

Se for selecionada a tecla "J", a primei¬ 
ra pergunta será quanto a escolha da cor 
das peças. Suas peças serão sempre as 
posicionadas no lado inferior do tabuleiro. 

Antes de iniciar o jogo será necessário 
a escolha do nível de dificuldade e duran¬ 
te a partida fica à disposição do jogador 
uma série de comandos. 

A tela de jogo é composta de um cro¬ 
nômetro, que: registra o seu tempo de jo¬ 
gada e o do computador; indica qual o ní¬ 


vel de dificuldade que é jogada a partida; 
o número de lances efetuados e o regis¬ 
tro de cada lance, tanto o seu quanto o do 
equipamento. 

No caso de acontecer algum lance ile¬ 
gal surgirá a seguinte mensagem "INVÁ¬ 
LIDO", então tente novamente outro lan¬ 
ce. O término da partida poderá ser indi¬ 
cado por uma dessas mensagens: "GA¬ 
NHEI", "DESISTO" ou "VOCÊ GANHOU". 

Enfim, para os fanáticos em xadrez, es¬ 
te programa será muito bem aceito, e pa¬ 
ra aqueles que não entendem nada do as¬ 
sunto esta é uma boa chance de poder 
aprender este inteligente jogo. Mesmo que 
você não saiba jogar, não se apavore, o 
programa passará algumas dicas de como 
efetuar os lances. 


PLANS OFT 

FIQUE TRANQÜILO, JÁ CHEGARAM OS MELHORES PROGRAMAS PARA 0 SEU TK 90X 


APLICATIVOS: 

901 Contas a Pagar e Receber 48K 
JOGOS 

920 Simulador de Vôo 48K 

Sensacional e realística Simulação de vôo pilotan¬ 
do um avião de grande porte. Segue manual com¬ 
pletíssimo. 

921 Xadrez 48K 

O jogo dos reis em versão com 10 níveis. As parti¬ 
das poderão ser gravadas para utilização ou análi¬ 
se posteriores. O computador pode sugerir as Jo¬ 
gadas. 

GAME PACKS: 

940 Game Pack 48K: 

* KNIGHT LORE: 

Participe da mais Incrível aventura por 128 telas di¬ 
ferentes. Você se transformará em Mago, Monstro, 
etc. Incríveis e fantásticos efeitos visuais. 

* MANIC MINER: 

Participe da exploração da mina. Vários telas. 

941 Game Pack 48K: 

* PSYTRON: 

Efeitos gráficos Inacreditáveis. Vários níveis. Um 
dos Jogos mais completos desta linha. 

* KONG: 

Ajude a mocinha contra o Klng-Kong. 


942 Game Pack 48K: 

* PENETRATOR: 

Você estará Invadindo o espaço aéreo Inimigo. Vá¬ 
rios níveis, opção para treino e Jogo. Possibilita a 
você criar sua própria cena do Jogo. Versão do con¬ 
sagrado PENETRATOR da linha trs-80. 

* Chequered Flag: 

Simulação de corrida de Fórmula Um pelos consa¬ 
grados circuitos Internacionais. 

943 Game Pack 48K: 

* FULL THROTTLE: 

Participe dos circuitos Internacionais da Fórmula 
Um em Motorclcleta. Perfeita simulação. 

* ZOOM: 

Seu objetivo é proteger os refugidos dos ataques 
inimigos. Várias cenas. 

944 Game Pack 48K: 

* CAVELON: 

Participe de uma aventura num castelo medieval. 
Vários níveis. 

* MR. WIMP: 

Que tal ajudar o barman a preparar uns sanduíches? 

945 Game Pack 48K: 

* ANDROID 2: 

Um Jogo sensacional. Efeitos tridimensionais. Vá¬ 


rios níveis. 

* LUNATTACK: 

Defenda sua nave do ataque Inimigo. 

946 Game Pack 48K: 

* TORNADO LOW LEVEL: 

Consagrado Best Seller desta linha. Pilote um Jato 
em defesa de sua cidade. Efeitos gráficos Incríveis. 

* TUTANKAMUN: 

Participe de uma aventura nos labirintos do palácio. 

980 Game Pack 16K: 

* COOKIE: 

Ajude o cozinheiro preparar seu almoço 
‘CENTIPED: 

Defenda-se da centopêia 

981 Game Pack 16K: 

* JET PAC: 

Participe de uma aventura na lua, voando com seus 
foguetes portáteis. 

' SEIDDAB ATTACK: 

Defenda a cidade das naves Inimigas, usando os ti¬ 
ros poderosos de seu tanque. 

982 Game Pack 16K: 

* PSSST: 

Ajude o sapinho defender a flor dos insetos. 

* THRUSTA: 

Sensacional jogo num labirinto diferente. 


INFORMAÇÕES À PLANECON INFORMÁTICA LTDA. 
Av. Água Fria, 925 — CEP 02330 — 

Fone: (011) 204-2777 São Paulo - SP 


DISPONÍVEL NA: 

A CAMBIAL — AMAROSON — ARNO — DECKER — ASSIS DATA — AUDIO — BRENO ROSSI — BRUNO BLOIS — CASA DOS GRAVADORES — UNE 
FOTO G.B. — CINÓTICA — COMERCIAL SEIXAS — COPIADORA BRASILEIRA — DIGITAL TÉCNICA — ELETRÔNICA SANTANA — FILCRIS — FOTOPTICA 
— GUERDISK — J.H. SANTOS — L.T. HAGA — MADISON — MAPPIN — MESBLA — MILTON SILVA CIA. — PÃO DE AÇÚCAR — SANDI2 — SHOP 
AUDIO E VIDEO 







1 


\c 

X 

3f- 

íf-W 



- 












- 








- 






i: 

r-J 

aZ 


% 


1 

" t 
















4— 

-| — |- 

—|- 

















b f 






Invasores do Espaço 


Esta é uma versão em Linguagem de Máquina, do mais 
famoso vídeo jogo existente no mundo, para o seu TK 85. 


0 videogame, apesar de ter surgido na década de 60, só se 
tornou realmente popular depois do aparecimento do famoso jogo 
— Space Invaders. 

Inicialmente desenvolvido para arcades (vídeo jogos em con¬ 
soles semelhantes aos fliperamas), este programa migrou rapi¬ 
damente para a categoria dos computadores pessoais e video- 
games domésticos, prestando assim uma grande contribuição 
para a rápida popularização do computador como elemento de 
lazer. Desta forma, pode-se dizer que, juntamente com o Visi- 
calc, o Space Invaders é um dos principais responsáveis pela re¬ 
volução dos microcomputadores. 

Sua grande aceitação, por um público de todas as faixas etá¬ 
rias, fez com que ele se tornasse um dos padrões em jogos de 
ação e os videogames um brinquedo bastante popular, possibi¬ 
litando aos usuários, "sonhos" de viagens e batalhas no espa¬ 
ço. Dentre os jogos de invasão espacial, além do Space Invaders, 
os que mais se destacam são: Galaga, Space Eggs e Defender. 

Devido à popularidade alcançada por esta linha de jogos, re¬ 
solvemos incluir nesta edição, uma versão do Space Invaders para 
o TK 85 que roda também, através de algumas modificações, 
nos microcomputadores TK-82C e TK-83. Este programa foi ela¬ 
borado quase que totalmente em Linguagem de Máquina, com 
poucas instruções em Basic, como poderá ser visto a seguir. 
Acompanhe as primeiras orientações: 

- digite uma linha REM com 350 caracteres seguida pelo pro¬ 
grama Monitor, da listagem 1; 



- a seguir rode-o e introduza os códigos hexadecimais cons¬ 
tantes na listagem 2. 

Para evitar a perda do programa, digite a linha 5 da listagem 
3, antes de deletar qualquer linha do programa Monitor. Tomada 
esta providência, delete as linhas do programa da listagem 1 e 
em seguida, digite o resto do programa em Basic (listagem 3). 

Antes de rodar o Invasores do Espaço grave-o duas ou três 
vezes, numa fita dê boa qualidade. 

Se o seu computador for um TK-83 ou 82, mantenha apenas 
as linhas de 100 a 600, alterando a linha 600 de GOTO 10 para 
GOTO 100. 



Passando de 12K para 16 e 48K 

Observem a inclusão, no programa da listagem 3, da linha 10. 
Nos computadores compatíveis ao TK-85 há a necessidade de 
sua inclusão para que ela cheque o valor da RAMTOP. Na ver¬ 
são original do Space Invaders, que foi desenvolvido para micros 
com apenas 2K de RAM, o valor do endereço 16389 é 72 que 
avisa ao computador que sua memória tem 2048 bytes. 

Se você digitar NEW (por meio de um POKE) corrija este valor 
para 128 nos micros TK-85 de 16K ou 255 nos equipamentos 
de 48K, antes de digitar qualquer programa. Isto é necessário 
também quando você for tentar passar qualquer programa de 
uma fita. 

Nos micros de 2K este valor não precisa ser modificado já que 
o valor máximo do conteúdo do endereço 16389 é 72. 

O programa 

Quando você for rodar o programa pela primeira vez, aparece¬ 
rá na tela a mensagem: "Deseja modificações? (S/N)". Digite en¬ 
tão N, para ver como o programa foi concebido originalmente. 
Se a digitação for correta aparecerá sete colunas de invasores 
e uma nave que poderá ser controlada por você. As teclas cinco 
e oito movimentam sua nave para direita e para a esquerda e a 
tecla zero, dispara um míssil. 

Se você for atingido, o programa parará e mostrará seus pon¬ 
tos (100 por nave atingida). 

Se os alienígenas forem derrotados, o computador repetirá 
mais uma vez a apresentação dos sêres espaciais. Uma vez der¬ 
rotados, você poderá retornar ao início do jogo, fazendo ou não 
modificações, conforme for o seu desejo. 
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As modificações permitidas são velocidade do jogo, velocida¬ 
de dos mísseis e o número de invasores. 

Se você possui um micro de 2K use POKES diretos, de acordo 
com a tabela I. 


Tabela 1 

Alterações permitidas no programa 

Endereço 

Conteúdo 

Efeito 

16599 

4 a 16 

Altera velocidade do jogo (4 mais 
rápido) 

16799 

0 

Altera velocidade do míssil para 
mais rápido. 0 conteúdo do 
endereço 16797 deve ser 70. 

16799 

58 

A velocidade do míssil do inimigo é 
a normal. 0 conteúdo do endereço 
16797 deve ser 70. 

16797 

78 

Altera a velocidade do míssil inimigo 
para mais lento. 0 conteúdo do 
endereço 16799 deve ser 58. 

16797 

70 

Altera a velocidade do míssil para a 
velocidade normal. 0 conteúdo do 
endereço 16799 deve ser 78. 

16798 

24 ou 32 

24-Suprime os mísseis do inimigo. 
32-Volta na situação normal. 

0 endereço 16797 deve ser 70 
e o 16799 deve ser 58. 

16573 

1 a 7 

Número de invasores. 


Listagem 2 - Códigos Hexadecimais 


15514 

6 

15515 

32 

15515 

52 

15517 

•— —? 

15515 

215 

15519 

15 

15520 

253 

15521 

6 

15522 

10 

15523 

137 

15524- 

52 

15525 

113 

15525 

215 

15527 

215 

15525 

5 

15523 

32 

16530 

151 

15531 

215 

16532 

15 

15533 

253 

16 53 4 

133 

16535 

15 

15536 

242 

15537 

5 

15535 

32 

16539 

52 

15540 

22 

16541 

215 

15542 

15 

16543 

253 

15544 

42 

15545 

12 

15 b 4 5 

54 

16547 

17 

16543 

113 

15549 

1 

15550 

25 


Ihhhi 

34 

16552 

b 0 

16 553 

b 4 

15554 

34 

16555 

bü 

16556 

54 

16557 

• “ 

15553 

0 

1*5^9 

3 

16560 

3 4 

15 551 

54 

15562 

b 4 

1655 3 

14 

1556 4 

•r* 

1656 5 

4 c: 

1555 5 

12 

16567 

54 

1655 3 

‘1 "7 

i 6 5 f": 9 

40 

16570 


16571 

•p ~ 

16572 


16573 

”7 

1057 4 

15575 

b ‘ 

16576 

0. 

15577 

30 

15573 

v=r 

16573 

54 

15530 


16531 

~ 

16532 

15 

15 5 S 3 

2 51 

15534 

30 

15555 

4 

16535 

fF 

iF:5;=;7 

13 3 

15533 

li” 

15533 

240 

15530 

42 

15531 

54 

16532 

54 

16533 

43 

15534 

124 

16535 

131 

16536 

32 

15537 

251 

15533 

42 

15533 

50 

16500 

54 

16601 

52 

15602 


15603 

113 

1650 4 

3F 

15505 

119 

15506 

35 

15507 

113 

16 5 0 3 

53 

16503 

33 

15510 

54 

15511 

203 

15512 

111 

15513 

32 

16614 

11 

15515 

43 

16615 

43 

16617 

43 

16513 

125 

16513 

254 

15620 

22 

15621 

40 

16522 

15 

15523 

p 

16524 

4 4 
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16625 

13 

16 62 6 

203 

16627 

95 

16628 

32 

16 62 9 

"7 

16630 

3R 

16631 

125 

16632 

254 

16633 

22 

16634. 

40 

16635 

1 

16636 

43 

16637 

43 

166 3 S 

43 

16632 

34 

1664.0 

50 

1664-1 

54 

1664.2 

54 

1664- 3 

6 

15644 

35 

16645 

54 

16646 

15 5 

16647 

35 

16643 

54 

16649 

134 

16650 

42 

16651 

56 

16652 

64 

16653 

62 

16654 

14 

16655 

120 

1665 6 

40 

16657 

•— •- 

i=. w 

16656 

253 

16659 

203 

16660 

33 

16661 

73 

16662 

40 

16 6 6 3 

4 

16664 

203 

16 665 

184 

16666 

24 

16667 

44 

1666 3 

203 

16 6 6 9 

120 

16670 

32 

16671 

40 

16672 

42 

1667 3 

50 

16674 

54 

16675 

35 

16 5 76 


16677 

203 

16673 

243 

16679 

24 

16630 

2 

16631 

54 

16632 

0 

16633 

17 

16634 

34 

166 3 5 

0 

1663 6 

167 

16637 

237 

16633 

32 

16639 

62 

16690 

•-* -? 
w 

16691 

190 

16692 

40 

16693 

12 

16694 

151 

16695 

190 

16696 

40 

16697 

4 

16693 

54 


16629 

— 

16700 

24 

16701 

4 

16702 

54 

15703 

14 

15704 

24 

15705 

3 

15705 

33 

15707 

0- 

15703 

0 

15702 

34 

16710 

5 5 

15711 

54 

16712 

42 

16713 

52 

15714 

64 

16715 

43 

16715 

125 

15717 

203 

16713 

71 

16712 

40 

15720 

250 

15721 

254 

15722 

•=. í 

16723 

32 

15724 

22 

16725 

203 

15725 

160 

15727 

4 

15723 

42 

15722 

50 

15730 

54 

15731 

203 

15732 

112 

15733 

32 

16734 

3 

16735 

33 

15735 

55 

15737 

54 

15733 

203 

15739 

30 

16740 

125 

15741 

131 

16742 

54 

15743 

203 

15744 

175 

16745 

24 

15745 

224 

15747 

254 

15743 

23 

16749 

32 

15750 

5 

15751 

12 

15752 

54 

16753 

0 

15754 

24 

15755 

33 

15755 

54 

15757 

0 

16753 

203 

15759 

240 

16750 

203 

i5761 

96 

16762 

32 

16763 

10 

16764 

203 

15755 

30 

16756 

40 

16757 

3 

16763 

■:R 

15759 

24 

15770 

15 

16771 

43 

15772 

24 
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16773 

13 

15774 

17 

16775 

3:s 

15775 

0 

15777 

25 

15775 

125 

15773 

230 

15750 

15 

15731 

254 

16732 

5 

15733 

32 

15734 

n. 

16735 

65 

15735 

201 

16737 

54 

15733 

133 

15733 

34 

15730 

52 

16731 

54 

16732 

33 

16733 

33 

15734 

54 

15735 

52 

16736 

203 

15737 

70 

15733 

32 

15733 

58 

15300 

42 

15301 

78 

15302 

54 

15303 

203 

15304 

115 

15305 

32 

16306 

3 

16307 

42 

16303 

52 

16303 

54 

16310 

125 

15311 

254 

16312 

133 

15313 

40 

15314 

6 

16315 

254 

15315 

23 

16317 

40 

16313 

31 

15313 

54 

16320 

0 

15321 

17 

16822 

34 

16323 

0 

15324 

25 

15325 

125 

15325 

254 

16327 

139 

15323 

40 

15323 

25 

15330 

254 

16331 

14 

16332 

40 

16333 

15 

16334 

254 

15335 

0 

16335 

40 

16337 

15 

15338 

254 

15339 

23 

16340 

40 

16341 

3 

15342 

43 

15343 

62 

16 3 44 


16345 

130 

15345 

40 



5 SLÜLt 

10 PQKE 15339:72 

15 PRINT P;T 5.0; ”DESEJP PLTERP 
CP0 (S/N)?” 

20 INPÜT Hl 
22 CL5 

25 IF P$=”N” THEN GOTO 100 
30 PRINT PT 3 0 ; “ QüPL ÜELOCIDP 

C> E (4- C > ) - 16 ( < 3 ? : : 

40 INPÜT U 

45 IF U<4 GR U >15 THEN GOTO 40 
50 PÜKE 15552:U 

55 PRINT PT 5:0;” COMO DESEJP O 
5 MÍSSEIS INIMIGOS?** 

55 PRINT PT 5:1;”l-RRPIDOS";PT 
7.1;"2-LENTOS”;PT 3.1;“3-SUPRIM 
IR”;PT 9.1;”4-NüRMPL” 

60 INPÜT M 

65 IF M<1 GR h >4 THEN GOTO 60 
70 GGSÜB 1000 -HM* 100 
75 PRINT PT 12,0; ”OüP NTP S LINH 
PS DE INUPSÜRES (1-73?” 

30 IHPUT N 

35 IF N •: 1 GR N > 7 THEN GOTO 30 
90 PQKE 16573.N 
100 FOR 1=1 TG 50 
150 NEXT I 
160 CLS 

130 PRINT PT 5,0; '"PRESSIONE QÜP 
LOUER TECLh :s 

200 IF INKEY$ ="” THEN GOTO 200 
300 CLS 

400 LET P =üSR 16514 
410 FOR 1=1 TG 50 
420 NEXT I 
430 CLS 

500 PRINT PT 10,IO;”PONTOS:”;P; 
” 00 ” 

600 GOTO 10 
1000 REM MÍSSIL 
1100 POKE 16737=70 
1110 POKE 16733=32 
1120 POKE 15739:0 
1130 RETURN 
1200 POKE 15737,73 
1210 POKE 15733:32 
1220 POKE 15733:53 
1230 RETÜRN 
1300 POKE 15733,24 
1310 POKE 15739:53 
1320 POKE 15737:70 
1330 RETÜRN 
1400 POKE 15733:53 
1410 POKE 15737:70 
1420 POKE 15733:32 
1440 RETÜRN 
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Logotipos na tela 
do seu micro 


Use esse utilitário em Assembly para criar telas com 
caracteres, em destaque, nos seus programas 


Na edição número 17 da Microhobby publicamos o programa 
"0 Apresentador", de autoria de Bernardo Stein. Baseado nesse 
aplicativo, desenvolvemos para este número, uma rotina em Lin¬ 
guagem de Máquina que, juntamente com um programa em Ba¬ 
sic, é capaz de gerar quatro caracteres grandes na tela do seu 
TK 85. 


0 programa 

Inicialmente, digite o programa Monitor Assembly (listagem 1) 
e uma linha REM.de 32 caracteres. Logo depois, rode o monitor 
e introduza os códigos da listagem 2. Para evitar problemas, di¬ 
gite POKE 16510,0, que consequentemente zerará a linha REM, 
impedindo que ela seja editada ou deletada. Quanto a listagem 
3, essa contém o programa em Basic que gerencia o de lingua¬ 
gem de máquina. Sendo assim, delete as linhas do monitor e di¬ 
gite o programa em Basic. 


Listagem 1 — Programa Monitor Decimal 


10 

POR 1=16514 TO 1554b 


2Q 

5CRDLL 


30 

PRIMT I, 


40 

INPUT J 


50 

POKE I:J 


50 

PRIMT PEEK I 


70 

NEXT I 




■ 


Listagem 2 — Códigos Decimais 


16514 

42 

16515 

14 

16516 

54 

16517 

55 

15516 

123 

16519 

54 

16520 

79 

15521 

5 

16522 

3 

15523 

203 


Funcionamento 

Digite RUN seguido de NEW LINE. Por conseguinte, o compu¬ 
tador pedirá que você escolha o fundo e o caractere que forma¬ 
rão a legenda, vale ressaltar que os melhores efeitos são obti¬ 
dos com caracteres e fundo bem contrastantes. Veja os exem¬ 
plos nas figuras 1 e 2. 

O endereço 16528 contém o código do caractere que servirá 
como fundo e o 16532 contém o código que desenhará as le¬ 
tras da mensagem. 

O segredo deste programa está na linha 110, que transfere para 
o endereço 16507, utilizado pelo programa Assembly, os códi¬ 
gos das letras das mensagens, extraindo da ROM de seu com¬ 
putador cada elemento da matriz que os formam. 

O programa pode ser alterado para, por exemplo, ser parte de 
uma rotina de "Score" num jogo de sua autoria. Analisando es¬ 
se aplicativo, você poderá também fazer mensagens mais lon¬ 
gas. O limite aqui é apenas a sua imaginação. 
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Figura 1 - Exemplo de utilização do programa - caracteres. 
Fundo: Espaço inverso. Caractere: espaço. 



Figura 2 - Exemplo de utilização do programa caracteres. 
Fundo: K inverso. Caractere: T. 


Listagem 3 - Programa Basic 


01 

5 

10 

15 

20 

25 

30 

40 

45 


“I 


ÍHizM £_hNDU-RND?^1hC: 

bübüb ThN 7/ SqUE 
DIM Di4) 

PRINT ,! QUhL 0 FUNDH 
INPüT F$ ' 

PÜKü 15b23,CÜDE Fí 
hkini :! QUhL ChRhC7ERE ? m 
INPU7 Cê 

HÜKE__1S532 :CODE Cí 

HHir-4! t: DIGITE QUhTRü LETRhí 


50 
55 
50 
70 
30 
90 
95 
100 
110 
0+J) 
120 
130 
140 
150 
160 
155 
170 
130 
190 


INPUT Lê- 
CL 5 

FÜR 1=1 70 4 

Liz ! D (13 =CÜDE Lê (13 

NEX7 I 

FÜR J=8 70 7 
rOR 1=1 70 4 
H R INI R I J +0 , (1-13 * 3 ; 

HÜKiz 15507 , REEK (D (13 *8 + 763 

RRND USR 15514 
NEX7 I 
NEX7 J 

LE7 Lê=INKEYí 

IF Lê = !,!! 7HEN GOTO 158 

FOR 1=1 70 28 

NEX7 I 

CL 5 

G070 18 


Cadastro de Clientes 

Memória Ocupada: 15834 bytes 


Carlos Eduardo Dantas de Menezes 


Em quase nenhum programa existente no mercado e nas re¬ 
vistas, as Funções Especiais de Armazenamento de Dados do 
TK-85 são usadas. Pensando nisso, decidi fazer um programa que 
as utilizasse. Daí, surgiu o Cadastro de Clientes, que cria, con¬ 
sulta, grava, lê, ordena, imprime e altera até 60 fichas (com 16K), 
compostas por nome, endereço, bairro, cidade, estado, telefone 
e CEP. 

Com o uso dessas funções de armazenamento, as fichas são 
gravadas e recuperadas separadamente do programa. Porém, isso 
causa uma incompatibilidade, pois sua utilização em outros mi¬ 
cros da linha Sinclair será dificultada; com algumas adaptações 
nessas duas sub-rotinas, outros computadores poderão usá-lo. 

Com uma expansão de 48K e umas pequenas mudanças em 
algumas linhas, o micro poderá ter em sua memória cerca de 380 
fichas. 

Afinal, o Cadastro de Clientes é um programa útil para escri¬ 
tórios, lojas, e para tudo que a imaginação mandar. 


Como usar o programa 

Inicialmente, aparecerá uma tela com o menu do programa. 
E deveremos apertar a tecla correspondente à instrução que que¬ 
remos que seja executada: 

TECLA 1: Inclusão 

Digite o nome, endereço, bairro, cidade, estado, telefone e CEP, 
todos seguidos de NEW UNE; depois responda a pergunta "Con¬ 
tinua?" com "S" (sim) ou "N" (não). 

TECLA 2:Consulta 

Digite "1" para consultar por nome e "2", por código: 

-1) Por nome: entre com o nome ou parte (pode ser até a pri¬ 
meira letra) e tecle NEW UNE. Após consultá-lo, responda se quer 
continuar ou não a consulta. Se sim, o programa procurará ou¬ 
tro cliente com esse nome. 

-2) Por código: entre com o código do cliente, seguido de NEW 
UNE. Depois de consultar, responda se deseja continuar ou não. 

Obs.;Uma maneira de se fazer uma consulta rápida de todos 
os nomes, basta chamar a sub-rotina de impressão (tecla 6), di¬ 
gitar o número do primeiro e do último cliente a ser consultado 
e escolher o "Formato Tela", pois, assim, todas as fichas apare- 
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cefão na tela, para serem impressas (por isso, desligue antes a 
impressora). 

TECLA 3: Leitura 

Prepare o gravador, aperte PLAY e digite NEW UNE, para que 
as fichas gravadas na fita cassete sejam lidas. Se por ventura 
alguma ficha estiver na memória antes da leitura, elas serão apa¬ 
gadas, para que as lidas ocupem seu lugar. 

TECLA 4: Gravação 

Devido a algumas características do programa e das funções 
de armazenamento do TK-85, não se pode gravar menos de 20 
fichas. Para gravar mais, prepare o gravador, aperte PLAY-REC, 
e digite NEW UNE. 

TECLA 5: Ordenação 

Põe todas as fichas presentes, na memória, em ordem 
alfabética. 

TECLA 6: Impressão - (fig 1, fig 2) 

Digite de que número, a que número deve-se imprimir (o nú¬ 
mero do primeiro cliente e o do último a ser imprimido), segui¬ 
dos de NEW UNE. Depois, entre com o formato: 

-1) Tela: serve para guardar as fichas em arquivo. Veja também 
a observação na parte "consulta", conforme figura 1. 

-2) Etiqueta: serve para se fazer etiquetas de carta, no forma¬ 
to demonstrado na figura 2. 

NOME ENDEREÇO CEP CIDADE ESTADO. 

Figura 1 



NÜM E : RE UI ST R HIÜROHÜBBY 


EHD.:HU,HHGELICR 2313 PHD.li 


BhIRRÜ:SRNTh ÜECILIm 
eiDRDE:SRG PRULG 



TECLA 7: Alteração 

Primeiro, digite o número da ficha (cliente) a ser alterada, se¬ 
guido de NEW UNE. Depois, o campo, isto é, campo 1-nome, cam¬ 
po 2-endereço,.campo 7-CEP, também com NEW UNE. 

Faça a correção e responda se quer continuar ou não. 

TECLA 8: Final 

Para quando queremos limpar a memória do computador, in¬ 
clusive o programa (o mesmo que NEW). 

Digitação 

Primeiro, deve-se digitar o programa 1 (linha REM com 144 ca¬ 
racteres quaisquer). Dê RUN e entre com os códigos da tabela+ 1. 


10 REM (144 caracteres quaisquer) 


20 POKE 16510,0 


30 FOR F = 16514 TO 16657 


40 SCROLL 


50 PRINT F; 


60 INPUT P 


70 POKE F,P 


80 PRINT P 


90 NEXTF 

Programa 1 


Agora, apague as linhas de 20 a 90 e digite o programa 2, 
que é o definitivo. Para iniciar, dê RUN, e para gravar, GOTO 9100 
(ou RUN 9100). 


Tabela 1 



16570, 

,,.200 

16571, 

,,.254 

16572 » 

,,«119 

16573 

. , . 40 

16574, 

. , , 24 

16575, 

. , . 50 

16576, 

.,,123 

16577, 

. , . 54 

16573, 

.,.195 

16579, 

-,.192 

16580 = 

. = » 55 

16531, 

,,.214 

16582, 

. , «22 2 

16533, 

, , , 35 

16534, 

,,,125 

16535, 

,,.254 

16586= 

. , .27 

16537, 

.,.225 

16533, 

, = , 58 

16532, 

,,«123 

16590, 

, , bi 

16591, 

, , , 32 

16592, 

.=.203 

16593. 

. , . 13 

16594, 

,,.119 

16595, 

, , . 35 

16595, 

. , . 19 

15597, 

a , «24 

15593, 

« , .197 

16592, 


15500, 

,,.123 

15501, 

. = ,54 

15502, 

.,.229 

15503, 

, , « 43 

15504, 

,,.125 

15505, 

,,,254 

16605= 

, , , 14 

16607= 

.,.225 

16603, 

, , , 58 

15509, 

.,.123 

16518, 

. , .54 

15511, 

. , , 40 

15612, 

,,,133 

15613, 

, , , 52 

15514, 

, , .27 

15515, 

,,,119 

16616, 

« , • 2 7 

15,617. 

. , , 43 

15513, 

« , . 52 

15512, 

... 0 

16620 » 

. , , 13 

15521, 

. , , 24 

15622, 

,,,173 

16623, 

. , . 42 

15524, 

, , . 12 

15525, 

. , . 54 
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1552 6 , . , , 3 b 


16642 .... 54 

16627,.,,285 


16643 .... 123 

15523, . , .S 


16644..,.35 

15629 ...... 53 


16645..,.35 

16530 ..... 14 


16646. ... 13 

15531* . , .20 


16647..,.32 

16632. ... 54 


16643..,.239 

16533. . , .128 


16649 .... 6 

15534 . , .3 3 


15550 » . , .32 

15 535. . = ,5 


15551,.,.54 

15635 .... 30 


15652,.,.123 

15537, , . ,54 


15553 .... 35 

16533 .... 0 


15554,.,.16 

15632 .... 33 


16555,,,.251 

15640. ... 16 


156b 5, . , ,3 b 

15541..,.251 


16657..,,201 ■ 


Listagem Programa 2 


0§REM GOSUB '? CR ND 5** f*OR EZH 
ND*1 m STR$ »*/Y ><( UNPLOT SGN §f 
FflST LN ü*G4 IF LN 11 *??■:' HÇ 
COPY C PLOT LN ?3F-C05 RETUR 
/M?RNDLEN 1 ‘ 1 ‘ SCHRS FPST 7HND4 


STR i 
TU RN 

N ?C. ... —., - ---- _ 

RCS > ?7 < /URL M7RND FflST FRNDCfaV . 
? . FY > /BE£RND 7LN ;«*INKEY $ = 8| W 
7 ( CLS QB77S4- LuflD ,*4017 ( CLS 7 
TfiN 

10 REM *CADASTRO DE CLIENTES * 
*8/9/198S*CRRL0S E.D.DE MENEZES* 


£8 DIM Ai (£4) 

30 DIM Ni£1440J 
40 DIM cl(1440) 

58 DIM Pí í380) 

68 DIM Fi(788) 

78 DIM Bi(8403 
30 DIM Ci (10803- 
98 DIM Si(1203 
180 LET C=8 
110 RAND USR 16523 
128 PRINT AT 1,5;"+CADA5TR0 DE 
CLIENTES*";AT £ , 5; " 


130 PRINT AT 5,413 INCLUSÃO 
2 3 CONSULTA";AT 7,4; " 3 3LE11 URA 
4 3 GRAUACAO";AT 9,4;”53ORDENAC 
AO • 63 IMPRESSÃO";AT 11,4; "73 AL 1 
ERACAO 8 3 FINAL";AT 14,3; "OPCAO 

- > " AT 17,3 ; "MENSAGEM : " 

148 LET Kl=INKEYi 

150 PRINT AT 14,18; 1";AT 14,18 


m 150 IF K$="" THEN GOTO UAL "148 


178 IF K$-CI¬ 
TO UAL "228" 
188 PRINT AT 
198 GO SUB UAL 
288 GOSUB UAL 
218 GOTO UAL 
22 0 PRINT AT 


OR Ki>”3" THEN GO 


14,10;Ki 
"588“ 

Ki*100041000 
“ 110 " 

17,12; ■•!“ 


238 GOSUB URL "588" 
248 PRINT AT 17,12; 


250 GOTO UAL "148" 
608 FOR F =8 TO 8-8 
518 NEXT F 
528 RETURN 
558 PRINT AT 5,6.;" 

560 POKE’16527,172 
5 78 p O K E 1652 8 ’, 8 


588 RAND USR 16514 
590 LET Ni £ ÍX-13 *24 + 1 TO X*£43 = 
A$( TO 243 
600 RETURN 

610 PRINT AT 7,6;"..... 


628 POKE 16527,233 
638 POKE 16528,8 
648 RAND USR 16514 
658 LET Ei ( (X-13 *24 + 1 TO X*24 3 = 
R$( TO 243 

668 RETURN 

678 PRINT AT 9,8;".. .. 

r s 

638 POKE 16527.F0 
698 POKE 16528,1 
788 kAND_ USR 16514 
710 LET Bi ( (X-13- *14 + 1 TO X*143 = 
H$( TO 143 
720 RETURN 

738 PRINT AT 11,8; ".. 

748 POKE 16527.116 
758 POKE 16528,1 
768 RAND U8R 16514 
778 LtT C$((X-13*18+1 TO X*183= 
A$( TO 183 
780 RETURN 

798 PRINT AT 13,6;"..." 

308 POKE 16527,130 
818 POKE 16528,1 
820 kAND USR 16514 
330 LET 8$((X-13*2+1 TO X*2)=fli 
i TO 2 3 
848 RETURN 

850 PRINT AT 13,16;",.........= 

868 POKE 16527,198 
378 POKE 16528,1 
SUO RAND USR 16514 
890 LET F$ í (X-13 *13 + 1 TO X*133 = 
fl$( TO 133 
908 RETURN 

910 PRINT AT 15,5;".,...." 

928 POKE 16527,245 
938 POKE 16528,1 
948 RAND USR 16514 
958 LET Pi ((X-13 *5 + 1 TO X*53 =AÍ 
£ TO 5 3 
968 RETURN 
1800 RAND USR 16623 
1818 PRINT AT 1,A;Ti;AT 5.1; "NOM 

E :.AT 

7,1; "END, .. 

. . . " ; AT 9,1; “BAIRRO : ... 

. , .";AT 11,i; "CIDADE:. 

. .." ; AT 13,1; "EST . . . . TEL 

. :.AT 15,1; "CEP : . 


1828 IF Ki="2" OR Ki="6" OR Kí=" 
7" THEN GOTO UAL "1848" 

1838 RETURN 

1848 PRINT AT 5,6;Nií (X-13 *24 + 1 
TO X*24) ;" ";AT 7,6;Ei( (X-13 *24 + 
1 TO X*243 ; ” ";AT 9,3;Bi( (X-13*1 
4 + 1 TO X*143 ;" “;AT 11,8;C$ ( (X-l 
3 *18 + 1 TO X*183 ;" ";AT 13,6;St l l 
X-13 *2 + 1 TO X*23 ; " ";AT 13,16;FÍ 

( (X-13 *13 + 1 TO X*133 ; " “;AT 15,5 
;Pi( (X-13 *5 + 1 TO X*53 ; “ " 

1058 RETURN 

2008 LET Ti="*INCLUSÃO*" 

2810 LET A =11 _> 
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i! 0 4- 0 lr 0 


R URL 55 1000“ 

T PT ■ ] R . 1; 88 MEN5RG t M : 
=50 7HEM RE7ÜRN 


2060 PR IN7 R7 1,27; :i N . “ ; RI 1 .* 2 

9; C 

2070 LE7 X = Ü 

2030 FOR F =0 7ü 360 57EP 60 
2030 GGSUB F + URL “550“ 

2100 NEX7 F 

2110 PRIN7 R7 13 : 10;“DESEüR INCL 
UIR MPI3“ ; R7 13 : 2 ; “UH ? CS/N) !! 
2120 GOSÜB URL “3300“ 

2130 IF X 2 = :! 5 :: 7HEN GÜ7Ü URL “20 
00 “ 

2140 PE7URN 

3000. PRND ÜSR 16623 

3010 PRIM7 R7 1,11; “*CONSÜL7R*“; 

R7 3.10 ; “D POR NOME“ ; R7 10,10; “2 

) POR CODIGO" R7 13 .«7; “EN7RE COM 

R OPCfiÜ:" 

3020. G05UB URL “3300“ 

3030 IF X2 <“1“ OR X$ >"2" 7HEN GO 
70 URL “3020“ 

3040 IF X2 = “2“ 7HEN G070 URL “32 
40" 

3050 RR ND ÜSR 16623 

3060 PRIM7 R7 10.3;"EN7RE COM 0 

NOME 

3070 POKE 16527:35 
3030 POKE 15523,1 
3030 RR ND ÜSR 16514 
3100 FOR F = 1 7ü 3 

3110 IF R$CF)=“ “ 7HEN G070 URL 
“3130“ 

3120 NEX7 F 

3130 IF F = 1 7HEN G070 URL “3050“ 
3140 LE7 F=F-1 
3150 FOR X = 1 70 C 

3160 IF N2 C CX-1) **24 + 1 70 (X-l)*2 

4 + F) =R$ C 70 F) 7HEN G070 URL "32 
10 “ 

3170 NEX7 X 
3130 PRIN7 R7 13,10 ; “ü 


3190 
3200 
3210 
3220 
70“ 
3230 
3240 
3250 
N. DO 
3250 
3270 
3230 
3230 
7HEN 
3300 
$ C 70 
3310 
3320 
3330 
00 “ 
3340 
3500 
3510 


NOME NRO 


GOSüB URL “500“ 

RE7ÜRN 

GOSÜB URL "3500“ 

IF X 2 = “ S “ 7HEN GG70 URL “31 


RE7URN 

RRND ÜSR 16523 
PRIN7 R7 10:2;“EN7RE COM 0 
CLIEN7E:-..“ 

POKE 16527:103 
POKE 15523 :1 
RRND ÜSR 15514 
IF CODE R$ <23 OR CODE R$>37 
G070 URL “3250“ 

IF URL R$ í 70 2) <1 OR URL R 
2) >C 7HEN G070 URL “3250“ 
LE7 X =URL R2( 70 2) 

GOSÜB URL “3500“ 

IF X$=“S“ 7HEN G070 URL “30 

RE7ÜRN 

LE7 7$=“*C0NSÜL7R*“ 

LE7 R =11 

3520 GOSÜB URL “1000“ 

3530 PRIN7 R7 13.1; “MENSRGEM: “;R 

7 1,27;"N. “;R7 1,23;X 

3540 PRIN7 R7 13,10; “C0N7INUR?C5 


/N) “ 

3550 GOSÜB URL “3300“ 

3550 RE7ÜRN 
4000 LE7 Z=0 
4010 LE7 Z$=“N“ 

4020 RRND ÜSR 15523 
4030 PRIN7 R7 1:11;“*LEI7üRR±“;R 
7 10,3;“PREPRRE 0 GRRURDOR, RPER 
7E“;R7 11,3; “<PLRY> E DIGI7E <NE 
U LINE>“ 

4040 GOSÜB URL “3300“ 

4050 RRND ÜSR 15523 

4050 RRND ÜSR 3305 

4070 IF C+Z/24>60 7HEN G070 URL 

“4250“ 

4030 LE7 Z±. = “E“ 

4030 RRND ÜSR 3305 
4100 LE7 ZÍ=“C“ 

4110 RRND ÜSR 3305 
4120 LE7 Z2=“B“ 

4130 RRND ÜSR 3305 
4140 LE7 Zí=“F“ 

4150 RRND ÜSR 3305 
4160 LE7 Z5=“P“ 

4170 RRND ÜSR 3305 
4130 LE7 Z 2 = “ S “ 

4130 RRND ÜSR 3305 
4200 LE7 C =Ci-Z /2 
4210 SLOU 

4220 PRIN7 R7 10,5; “CS DRDOS FOR 
RM LIDOS";R7 11,3;“PERFEI7RMEN7E 

4230 GOSÜB URL “500“ 

4240 RE7ÜRN 
4250 SLOU 

4250 PRIN7 R7 10,5;“LEI7ÜRR IMPO 
SSIUEL POR“ ;R7 1Í,3;“FRL7R DE ME 
MOR IR“ 

4270 G070 URL “4230“ 

5000 RRND ÜSR 15623 
5010 IF C <20 7HEN PRIN7 R7 3,4;“ 
NRO SE PODE GRRURR MENOS";R7 10, 
5; “DE UIN7E (20) FIOHfi S“ 

5020 IF C <20 7HEN GOSÜB URL “500 

5030 IF C <20 7HEN RE7URN 
5040 PRIN7 R7 1,11; “ *GRflURCRO*“ ; 
RT 3.3;“PREPRRE 0 GRRURDOR, RPER 
7E“ ; R7 10,2; “ <PLRY-REC> £ 7t:CLE 
<NEU LINE >“ 

5050 GOSÜB URL “3300“ 

5060 Lc7 Z=C*24 
5070 LE7 Z2 = “N“ 

5030 RRND ÜSR 3233 
5030 LE7 Z2 = “E“ 

5100 RRND ÜSR 3233 
5110 LE7 Z =C 213 
5120 LE7 Z$=“C“ 

5130 RRND ÜSR 5233 
5140 LE7 Z =C ±14 
5150 LE7 Z±- = “B“ 

5160 RRND ÜSR 3233 
5170 LE7 Z =C 213 
5130 LE7 Z±. = “F“ 

5130 RRND ÜSR 3233 
5200 LE7 Z=C*5 
5210 LE7 Z$=“P“ 

5220 RRND ÜSR 3233 
5230 LE7 Z=C*2 
5240 LE7 Z$ = “3“ 

5250 RRND ÜSR 3233 
5260 S L 0 U 

5270 RE7URN _ 
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1 1 1 1 1 1 1 1 1 ["1 

PROGRI 

===== == ===== = = =xp== =: 

r\A /» 

‘TP /f o)/£ 

rií /InS 

. U Á @3, 

nivu-iL> 

— 1 i~ ———————- - 


6800 RfiND USR 16623 

6810 PRINT RT 10,10; "iORDtNRNDUi 


6820 G0SUB URL ”580" 

6830 FRST 

6048 FOR Ü=1 TO C-l 

6050 FOR X=ü+1 TO 0 

6068 IF N$ C CU *24.) -23 TO Ui243<=N 

i((Xi243-23 TO X*24) THEN GOTO U 

RL "5288" 

6078 LET X$=N$í íUi243 -23 TO Ui24 

i 


6038 

LET 

N * » 1 • J * 4 J — i=! ó 

TO 

U i 2 4 3 — N 

i( (X *24 3 

-23 TO X*245 



6898 

LET 

N E- 1 1 X * i=i -4- j — '■£ ó 

TO 

:X *243 =X 

6188 

) 

6118 

LET 

XÊ = EÈ ( C J*245 

-23 

TO U *24 

LET 

n. ±- 1 ü *245 — 2 w 

TO 

U * 2 4 3 = L 

$ i (X*54.) 

-23 TO X*245 



6128 

± 

LET 

ü? i i X *24- j — 2 w 

TO 

X *24 3 -X 

6138 

•j 

LET 

X$=C$( (J*13) 

-17 

TO Ui18 

614-8 

LET 

OÊ C íJ*135 -17 

TO 

Ui183 =C 

$ ( 16) 

-17 TO X*135 



6158 

± 

LET 

0$( (X *13) -17 

TO 

Xi18 3 =X 

-H 

6168 

} 

6178 

LET 

XE- = 5$ ( (J* 145 

-13 

TO Ui14 

LET 

5$( ( J *14 5 -13 

TO 

Ui143 =B 

$ C (X 

*14 5 

-13 TO X*145 



6138 

LET 

5$( (X *14) -13 

TO 

Xi14 3 -X 

6198 

I 

LET 

X$ = FÊ ( (J*13 5 

-12 

TO Ui13 

6288 

LET 

FÉ(( J* 13)-12 

TO 

Ui133 =F 

$ í C X * 13 3 

-12 TO XE 135 



6218 

LET 

FÉ( CX*13 5 -12 

TO 

X i 13 3 - X. 


$ 

6220 LET Xi=PSí(Ui53-4 TO Ui53 
6230 LET PS ( ( U*5 3 -4 TO Ui53 =P$í ( 
X * 53 -4 TO Xi53 


6248 LET PiC CXi53 -4 TO 
6258 LET X$=5iiCUi23-1 
6260 LfcT 5$(ÍUi23-1 FO 
X *23 -1 TO Xi2 3 
5278 LET Sií(Xi23-Í TO 
6280 NEXT X 
5298 NEXT J 
6380 PRINT RT 18,18;" 


X i 5 3 =X$ 
TO ü 4 2} 
Ui2) =8$ ( C 

X. i 2 3 — X i 


iPRONTOi 


6318 5L0U 

6328 GOSUB URL "588" 

6338 RETURN 

7888 RRND U5R 15623 

7810 PRINT RT 10,2:"DIGITE 0 N. 

DO l s CLIENTE : „ . „ " 

7820 POKE 16527,102 

7830 POKE 16523,1 

7048 RfiND USR 15514 

7058 IF URL RÜ TO 2)<1 OR URL fi 

$ ( TO 2) >C THEN GOTO URL "7018" 

7860 LET B=URL fl$( TO 23 

7878 PRINT RT 11,10; "PITE 0 N. : . . 


7888 POKE 16527,127 

7898 RfiND USR 16514 

7108 IF URL Ri( TO 23 <B OR URL fi 

$( TO 23 >0 THEN GOTO URL "7878" 

7118 RfiND USR 16523 

7128 PRINT RT 6,6;"ENTRE COM 0 F 

QRMfiTQ: ":RT 9,4; "13 FORMATO TELfi" 


;RT 11,4; ”23 FORMATO ETIQUETA" 
7138 GOSUB URL "8380" 

7148 IF Xi=“l" THEN GOTO URL “72 
38" 

7158 FOR F=B TO URL R$« TO 23 
7168 LPRINT N$(ÍF-13i24 + l TO Fi2 
43 

7178 LPRINT Ei((F-13*24+1 TO Fi2 
43 

7180 LPRINT Pi(ÍF-13*5+1 TO FiS3 
; " " ; Oi í (F-13 *18 + 1 TO F* 183 " 

";Si( (F-13 i2 +1 TO F*23 
7198 LPRINT 
7288 LPRINT 
7218 NEXT F 
7228 RETURN 
7230 LET Ti="" 

7248 LET fi =8 

7258 FOR X =B TO URL RSí TO 2 3 
7268 GOSUB URL "1088" 

7278 COPY 

7288 NEXT X 

7298 RETURN 

8808 RfiND USR 16623 

8010 PRINT RT 18,4;"DIGITE 0 N. 

DO CLIENTE: 

8028 POKE 15527,182 
8038 POKE 16528,1 
8848 RfiND USR 16514 
8050 IF CODE Ri<29 OR CODE Ri>37 
THEN GOTO URL ”3810" 

8860 IF URL Rií TO 23 >C OR URL fi 
íí TO 23 <1 THEN GOTO URL "3810" 
3078 LET X =URL Rií TO 2 3 
3080 PRINT RT 11,3;"DIGITE 0 CfiM 
PO 

8098 POKE 16527,131 

8180 RfiND USR 16514 

8110 IF fiií13 <"1" OR Ri(13 >"7" ! 

HEN GOTO URL "3838" 

8120 LET fi=il 

8130 LET T{="ifiLTERRCfiOi” 

8148 GOSUB URL “1808" 

8150 PRINT RT 18,1;"MENSAGEM;" 
8168 GOSUB URL RSí13*50+490 
8178 PRINT RT 18,18;"CONTINUfi?(S 
/N3 " 

8180 GOSUB URL “3380" 

3190 IF X$=“S“ THEN GOTO URL ”30 
80" 

8280 RETURN 

8308 LET XÍ=INKEYÍ 

3318 IF Xt="" THEN GOTO URL "330 
8" 

3320 RETURN 

9888 RfiND USR 16523 

9818 GOSUB URL "588" 

9828 NEÜ 
9108 SfiUE "Cg" 

9118 RUN 


Figura 2 


R E U I ST fi MIC R 0 H 0 B B Y 

RU .fiNGELICR 2318 AND.14 

01228 SRO PAULO 


Carlos Eduardo Dantas de Menezes tem 14 anos e cursa atual¬ 
mente a oitava série do primeiro grau. 
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CAPA 


Faca Música 

a 

com seu Computador 


Alexander Gromow 


A evolução dos computadores pessoais ampliou considera¬ 
velmente seu campo de aplicação. O TK 90X e seus compatí¬ 
veis, como o ZX-Spectrum, representam uma grande evolução 
quando comparados com o seu "irmão mais velho", o TK 85 (ou 
o ZX-81, CP 200, Ringo, etc.). Isto porque, além da cor e da alta- 
resolução gráfica, ele abre as fronteiras do som sem a necessi¬ 
dade de acessórios adicionais. Essa abertura é feita de modo li¬ 
mitado, mas bastante útil, e pode até surpreender quando cor¬ 
retamente explorada. 

Neste artigo vamos nos ater à programação de som em Basic, 
se bem que existe um amplo espectro de possibilidades de ge¬ 
rar sons, ruídos, efeitos sonoros em geral, a partir de programa¬ 
ção em Linguagem de Máquina. 

Comentaremos as características tanto do TK 90X como do 
ZX - Spectrum, pois existem diferenças entre ambos, como tam¬ 
bém das aplicações. 

Como ponto central deste artigo descreveremos as chaves de 
conversão entre a pauta de uma determinada música e a pro¬ 
gramação que permitirá ao computador executar a música em 
questão. Apesar do trabalho envolvido na decodificação de uma 
dada melodia e na posterior programação, o resultado pode ser 
gratificante. É possível utilizar trechos musicais ou até músicas 
completas em seus programas. Com isto o computador assume 
a tarefa de um executante exímio e tecnicamente correto, das 
músicas que forem programadas. 

Finalizando, o artigo apresenta uma música completa: o tema 
do filme Golpe de Mestre, um "ragtime" composto por Scott 
Joplin. 

Características do som 
do seu computador 

Em Basic o som é gerado a partir de um comando específico, 
e é aqui que aparece a primeira diferença entre o TK 90X e o 
ZX-Spectrum. Esta diferença é, na verdade, uma mera questão 
de forma, a saber: 



TK 90X 

ZX-Spectrum 

comando 

SOUND d,t 

BEEP d,t 


Ambos os comandos, apesar dos nomes diferentes, têm fun¬ 
ção exatamente iguais. Cada um dos computadores aceita o co¬ 
mando do outro e o converte para o seu próprio, isto é, um pro¬ 
grama escrito num ZX-Spectrum com o emprego de BEEP's ro¬ 
da no TK 90X. Ao ser dado o comando LIST observa-se que os 
BEEP's foram automaticamente transformados em SOUND'S. As 
duas variáveis que acompanham estes comandos são: 
d = duração da nota; t = tonalidade da nota. 


Outra diferença, desta vez real, é que o ZX-Spectrum possui 
um pequeno alto-falante embutido, cujo "volume" fixo é um cons¬ 
tante teste audiométrico. O TK 90X, por sua vez, gera o som 
através do amplificador do televisor. Como alternativa para os 
possuidores do ZX-Spectrum basta ligar os conectores EAR ou 
MIC a um amplificador. Em ambos os computadores, o coman¬ 
do de som em Basic interrompe a execução de um programa, 
agindo como o comando PAUSE. 

O que podemos definir é a duração e a tonalidade de uma no¬ 
ta; assim sendo, é necessário programar nota por nota, indican¬ 
do ambas as variáveis "d" e "t". A duração pode ser expressa 
por números fracionários. A tonalidade da nota é expressa por 
um número definido em função de uma escala e pode ser positi¬ 
vo ou negativo, incluindo o zero. Aliás, conforme estabelecido 
na Conferência Internacional de Londres, o Dó central tem a fre- 
qüência de referência de 261,6 Hz e no seu computador este va¬ 
lor corresponde exatamente a t=0. 

Neste artigo partiremos da programação mais direta e simples, 
nota por nota, compasso por compasso, deixando aos leitores 
o caminho aberto para sofisticações; com a prática podem ser 
empregados comandos READ, DATA e RESTORE para, através 
de sub-rotinas, programar trechos de músicas que se repetem. 

Tipos de aplicação do som 

Vamos agora diferenciar efeitos sonoros e reprodução de mú¬ 
sica propriamente dita. Como efeitos sonoros ou "vinhetas" 
aplicam-se muito bem as chamadas músicas aleatórias ou ran- 
dômicas. Veja o exemplo da Listagem 1. 


Conforme mencionamos anteriormente, para a programação 
de efeitos sonoros é mais adequado o emprego da Linguagem 
de Máquina. Com ela é possível aumentar o suave "click" que 
ocorre quando você aciona uma tecla. Para que isto aconteça 
basta entrar o seguinte: 


POKE 23609, 255 


S REM p 0 f H , G f o ííi O W £ n» 1985 
10 REM V i n h £ t a 3 l £ -3 t O f i -3 
20 FOR X =30 TO 1 57 ER -1 
30 SGUND =1 : RND±50 
40 SGUND .0<31.RND*60 
50 SGUND ,01:RND*50 
70 NEX7 X 

30 REM sxp e r í m £nt£ var i ar o va 
L 0 r d £ •' X *' b£ ÍH C 0 fíl 0 3 £ d U f 3 C 0 £ £ 

dos 3EER-si 

Listagem 1 ■ 


24 MICROHOBBY 















CAPA 

Ao ligar o computador o valor após a vírgula é 0, mas pode 
variar até 255. Este procedimento pode ser incluído em progra¬ 
mas para propiciar a confirmação sonora da entrada de dados. 

Chaves de conversão entre a 
pauta musical e a programação de seu computador 


As chaves de conversão que passamos a apresentar permi¬ 
tem a programação de uma partitura musical, sem que seja ne¬ 
cessário possuir profundos conhecimentos de música. Iremos 
identificar os aspectos ligados à pauta em si, ao compasso e à 
sua fórmula, às notas e às pausas. Parece complicado, mas sim¬ 
plificaremos as coisas ao máximo. 

Aspectos ligados às pautas 

Cinco linhas e quatro espaços formam a pauta ou o pentagra¬ 
ma. Nela são dispostas as notas e demais sinais que formam a 
melodia. Além das cinco linhas, quando necessário, são empre¬ 
gadas linhas suplementares. As linhas e espaços são numera¬ 
dos de baixo para cima, ao passo que as linhas suplementares 
inferiores são numeradas de cima para baixo e as superiores, de 
baixo para cima (veja Figura 1). Juntamente com as linhas su¬ 
plementares existem os espaços suplementares. 


Os sinais convencionais são empregados na pauta, para indi¬ 
car a seqüência de execução de uma música. Convém observar 
que nem sempre os editores de música observam os sinais con¬ 
vencionais à risca, o que poderá implicar num cuidado maior ao 
se definir a seqüência de execução de uma dada música. A letra 
de uma música, quando disposta na pauta, dá uma orientação 
adicional de sua seqüência de execução, (observar símbolo no 
original) 

- "S" ou "segno" sinal empregado para balizar a música; 

- D.S. - "Del Segno" - volta até o "segno" e toca até o final; 

- D.C. - "Da Capo" - volta até o início e toca até o final; 

- "Coda" - geralmente indica o trecho final da música. 

Na figura 4 apresenta-se um exemplo da aplicação de alguns 
sinais convencionais. 

Compasso e fórmula de compasso 

O compasso é a porção de música contida entre duas barras 
de divisão adjacentes. Estas barras dividem a música em trechos 
de duração igual. A fórmula de compasso, geralmente represen¬ 
tada sob forma de fração, indica o número de tempos (batidas) 
e o inferior indica o tipo de nota que corresponde a um tempo 
unitário. A Figura 5 mostra um exemplo de compasso e fórmula 
de compasso. 


linhas 




Figura 1: A Pauta (ou o pentagrama) 


As chaves são colocadas no início de uma partitura e, com is¬ 
to, identificam as notas dispostas na pauta. Músicas para piano, 
violino, flauta, guitarra e violão são freqüentemente escritas na 
clave de Sol. Para sons mais graves, como o contrabaixo, é em¬ 
pregada a clave de Fá. A figura 2 apresenta ambas as claves, 
bem como as notas dispostas na pauta e os correspondentes 
valores de "t". 

As barras são linhas perpendiculares à pauta e são de quatro 
tipos: 

simples: dividem os compassos entre si; 
duplas: dividem os períodos; 
repetição: duplas com dois pontos; 
finalização: colocadas no fim da melodia. 

A figura 3 mostra os vários tipos de barras. 


A duração de cada tempo depende do andamento da música. 
Exatamente por este motivo é interessante programar uma da¬ 
da música usando a variável "d", definindo-a antes que o com¬ 
putador a execute. Desta forma, podemos selecionar o andamen¬ 
to adequado. 


Notas 

A figura 6 mostra os tipos de notas (ou sons) em função do 
seu valor no tempo, e indica a fórmula a ser empregada na pro¬ 
gramação, sob a forma de um submúltiplo do valor "d". Veja 
exemplo na figura 7. 

As notas, quando dispostas na pauta, assumem valores mu¬ 
sicais em função da clave empregada. O seu computador pode 
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Figura 2: Acima clave de Sol e abaixo clave de Fá. Os números são os valores de "t" para o seu computador. 
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gerar dez oitavas com tons e semitons, sendo que o valor de "t" 
pode variar entre -60 e 69. Para indicar a variação de um ou mais 
semitons, em relação a uma dada nota, são empregados os se¬ 
guintes sinais: 

fl - sustenido - sobe um semitom; 
b - bemol - desce um semitom; 

tl - bequadro - cancela um sustenido ou um bemol anteriores; 
ctf - dobrado sustenido - sobe um tom inteiro; 
bb - dobrado bemol - desce um tom inteiro. 


Vamos usar como exemplo a escala de Lá maior. Observamos 
que ela possui 3 notas sustenidas (elevadas de meio tom), a sa¬ 
ber: Fá, Sol e Dó. Isto só não ocorrerá quando houver uma nota¬ 
ção específica antes destas notas. 

As notas musicais têm várias denominações. As usuais são 
a latina e a grega. A equivalência entre as duas é a seguinte: 


notas 

musicais 

Dó 

Ré 

Mi 

Fá 

Sol 

Lá 

Si 

Latina 

C 

D 

E 

F 

G 

A 

B 

Grega 


Subir ou descer um semitom em seu computador representa 
somar ou subtrair,respectivamente, uma unidade no valor de "t". 

Os sinais 9 e b quando dispostos no início de uma pauta são 
chamados de acidentes fixos e têm efeito durante todo o trans¬ 
correr da peça musical. A sua presença indica o tom de uma da¬ 
da escala. As escalas usuais e seus acidentes são mostrados na 
Figura 8. 
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Sinais e notações que 
alteram a duração das notas 


O ponto aumenta a duração da nota em metade do seu valor 
original: 

o. = d+ d/2 (fórmula para o computador) 

A ligadura prolonga o valor de uma nota resultando em um tem¬ 
po final que é a soma dos tempos das notas ligadas (veja exem¬ 
plo na Figura 9). A ligadura pode se processar entre figuras de 
mesma duração ou de durações diferentes; pode se processar 
dentro de um compasso ou se expandir para outros compassos, 
ligando notas iguais na mesma altura. 

A Fermata/^ quando escrita sobre uma nota.indica que esta 
deve ser prolongada o máximo possível, a critério do intérprete. 

A Tercina é um sinal que faz com que três notas unidas por 
ele passem a ter o valor de duas da mesma espécie (veja Figura 
10 ). 

Escalas de conversão para a 
programação de notas 
em seu computador 

Primeiramente, vamos ver na Figura 11 uma parte da escala 
básica de notas que o seu computador possui, fazendo a com¬ 
paração com o teclado de um piano. Notamos que a partir do 
Dó central, que tem o valor de t= 0, as demais oitavas distam 
de 12 da central, isto é, o Dó uma escala acima e uma escala 
abaixo do central tem o valor +12 e -12, respectivamente. Isto 


Figura 6 



Figura 7: Exemplo da composição de compassos em função de uma dada fórmula de compasso. 
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1-Sequencia dos sustçnidos: 
Fa, Do, Sol, Re, La, Mi, Si 

Sequência ,dos ,bemóis: # # 

Si, Mi, La, Re, Sol, Do, Fa 


La b maior Re b maior Sol b maior 





Sol menor 




Do menor 




^ 5 = 




m 


m 


& 


t 


Fa menor Si b menor Mi b menor 


Do b maior 

j|ÉÉ r 

La b menor 


OBS.: 2-Basta contar o numero de sustenidos ou 
de bemóis da escala e ver na sequencia 
supra quais são os acidentes. Ex.: Es¬ 
cala de La,Maior, tem 3 sustenidos que 
são: Fa, Do e Sol« Escala de Re b 
m^ior,tem 5 bemóis, que são: Si, Mi, 

La, Re e Sol. 


Figura 8: Escalas usuais e seus acidentes. 


ligadura 


Ê 


£ 


ê 


£ 


T_ valor = (d/8 + d/8) 


Observe que a segunda nota não deve ser tocada. A primeira nota é mantida pelo tempo igual à soma 
dos tempos das notas unidas pela ligadura. 

Figura 9: _ 
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se aplica a todas as notas. Por exemplo, o Mi imediatamente após 
o Dó central tem t = 4, e o Mi uma escala acima tem t = 4 + 12 
= 16. 

Como vimos, existem várias escalas. Tomando as da clave de 
Sol, vamos estabelecer uma escala de conversão para o seu com¬ 
putador. Na figura 12 temos o "formulário" para todas as esca¬ 
las da clave de Sol. Para cada uma delas temos que acrescentar 
os acidentes correspondentes e completar os valores de "t". 

Na figura 2 temos a indicação dos valores de "t" para com¬ 
pletar as escalas de conversão. Como exemplo, tomemos a es¬ 
cala de Lá maior. O que se pretende é ter um instrumento de lei¬ 
tura de uma partitura, de modo a definir o parâmetro "t" que 
complementará, juntamente com "d",o comando SOUND d,t ou 
BEEP d, t. A escala de Lá maior tem todas as notas Fá, Sol e Dó 
sustenidas. Na figura 13 está a escala de conversão completa. 



Figura 11: Comparação entre o teclado de um piano e o valor 
de "t". 

Pausas 

Para completar os elementos que compõem uma pauta pas¬ 
semos a descrever as pausas ou silêncios. No seu computador 
elas serão efetuadas através do comando PAUSE seguido da du¬ 
ração correspondente, expressa sob a forma de uma fração do 
valor "d". As pausas correspondem às notas em duração; têm, 
portanto, os mesmos nomes, como pode ser visto na Figura 6. 

Empregamos o "d" também para programar as pausas. Deste 
modo, é mantida a homogeneidade quanto ao andamento da 
música. 

Também para as pausas se aplica o ponto que, como no caso 
das notas, aumenta a duração das pausas em metade do seu 
valor original. 


O valor de "60" empregado na fórmula para o computador 
deve-se ao fato de que o comando PAUSE, para um valor unitá¬ 
rio, tem a duração de 1/60 segundos (para países com a freqüên- 
cia de 60 Hz). Com isto, o valor da pausa é mantido diretamente 
em função do valor atribuído a "d". 

Exemplo detalhado de programação 

Para programar uma música devemos seguir um roteiro, que 
se inicia com a análise da escala e da fórmula do compasso. A 
seguir, deve ser verificada a seqüência da música. A decodifica- 
ção de cada nota se inicia pela verificação do seu tipo, a fim de 
ser determinada sua duração. Deve-se sempre observar a even¬ 
tual existência de um sinal que altere o valor da nota. A progra¬ 
mação das pausas segue esta seqüência. Voltando às notas, falta 
identificar sua tonalidade e o valor de "t". Para tanto usamos a 
escala de conversão, previamente preparada, observamos se exis¬ 
te algum sinal que altere a tonalidade da nota. 

Passemos ao exemplo propriamente dito, e vamos programar 
o trecho da pauta da figura 14, seguindo o roteiro de 
programação. 

a) Qual é a clave? 

Neste caso é a de Sol. 

b) Qual é a escala? 

Como o Fá, o Dó e o Sol são sustenidos, temos a escala 
de Lá maior; aplica-se, portanto, o esquema da Figura 13. 

c) Qual é a fórmula do compasso? 

4/4. 

d ) Decodificação das notas (e das pausas): Numeramos as no¬ 
tas deste exemplo para facilitar a identificação das mesmas. 

Nota 1 

- que tipo de nota é? 

uma colcheia, segundo a Figura 6. 

- existe algum sinal que altere sua duração? 

não; portanto, também conforme a Figura 6, a fórmula de 
sua duração é d/8. 

- qual é a tonalidade da nota? 

ela está imediatamente abaixo da primeira linha suplemen¬ 
tar inferior, portanto, consultando a Figura 13, temos t = 
-1 e a nota é um Si. 

- existe algum sinal que preceda a nota e modifique sua 
tonalidade? 

não; portanto o comando completo para programar esta nota 
é: SOUND d/8, -1 ou BEEP d/8, -1. 

Nota 2 

- que tipo de nota é? 
também é uma colcheia. 

- existe algum sinal que altere sua duração? 
não; portanto a fórmula de sua duração é d/8. 

- qual é a tonalidade da nota? 

é idêntica à anterior; portanto, até aqui t = -1. 

- existe algum‘sinal que preceda a nota e modifique sua 
tonalidade? 

sim, um sinal de sustenido que sobe a nota em meio tom 
(ou seja, soma-se ao valor original de t), donde t = -1 + 
1=0; como resultado o comando para esta nota é o 
seguinte: 

SOUND d/8, 0. 

A fórmula de compasso de 4/4 indica que estas duas notas 
não completam um compasso inteiro (faltam 3 tempos ou bati¬ 
das); isto porque duas colcheias formam um tempo. Trocando 
em miúdos: com a fórmula de 4/4, as quatro notas de valor igual 


30 MICROHOBBY 

























































CAPA 


que comporiam um compasso são as semínimas, de duração d/4 Podemos racionalizar e simplificar esta expressão. Mas, se não 
(cada uma que têm a duração d/8, se somadas equivalem a uma houver limitação da capacidade de memória em seu computa- 
semínima, ou seja d/8 + d/8 = d/4. dor, é mais fácil deixar o problema para que ele mesmo resolva. 

Aproveitando este raciocínio, podemos concluir que duas míni¬ 
mas equivalem a uma semibreve, duas semínimas equivalem a - qual é a tonalidade das notas unidas pelas ligaduras? 
uma mínima, e assim por diante. Assim sendo, uma semibreve idêntica à nota 4. 

equivale a oito colcheias. Resulta, portanto, a seguinte linha pa- - existe algum sinal que preceda a nota e altere a sua 
ra programar a introdução composta pelas notas 1 e 2: tonalidade? 

10 SOUND d/8, -1: SOUND d/8,0. não; portanto resulta o seguinte comando: 

Nota 3: SOUND (d/8 + d/2 + d/8), 9. 


- que tipo de nota é? 
uma colcheia. 

- existe algum sinal que altere sua duração? 
não; portanto, resulta d/8. 

- qual é a tonalidade da nota? 

ela está na primeira linha suplementar inferior. É, portanto, 
um Dó, que na escala de Lá maior é sustenido (este fato já 
foi considerado no esquema da Figura 13, logo, temos t = 1). 

- existe algum sinal que preceda a nota e modifique sua 
tonalidade? 

não; portanto, para esta nota temos: 

SOUND d/8,1. 

Nota 4: 

- que tipo de nota é? 
trata-se de uma semínima. 

- existe algum sinal que altere a sua duração? 
não; logo, a fórmula de sua duração é d/4. 

- qual é a tonalidade da nota? 

ela está no segundo espaço do pentagrama, portanto é um 
Lá e, de acordo com o esquema da Figura 13, temos t = 9. 

- existe algum sinal que preceda a nota e modifique a sua 
tonalidade? 

não; donde o comando para esta nota é: 

SOUND d/4, 9. 

Nota 5: 

- é idêntica à nota 3. 

Nota 6: 

- é idêntica à nota 4. 

Nota 7: 

- é idêntica à nota 3. 

Nota 8 (9 e 10): 

- que tipo de nota é? 
uma colcheia. 

- existe algum sinal que altere sua duração? 

sim, uma ligadura, que une esta nota a outra no compasso 
seguinte. 

- qual é o tipo de nota na extremidade desta ligadura? 
uma mínima. 

- existe algum sinal que altere sua duração? 
sim, outra ligadura. 

- qual é o tipo de nota na extremidade desta ligadura? 
uma colcheia. 

- existe algum sinal que altere sua duração? 

não; resulta que a mesma nota é mantida por um tempo igual 
à soma dos tempos das notas unidas por estas duas liga¬ 
duras, a saber: 
d/8 + d/2 + d/8. 


Como uma ligadura passou de um compasso para o outro, va¬ 
mos tratar das notas 11, 12 e 13, que fecham o segundo com¬ 
passo, para depois escrever a linha de programação para os pri¬ 
meiro e segundo compassos. 

Nota 11: 

- que tipo de nota é? 
é uma colcheia. 

- existe algum sinal que altere a sua duração? 
não; portanto temos d/8. 

- qual é a tonalidade desta nota? 

é idêntica à da nota 4, a saber: t = 9. 

- existe algum sinal que preceda a nota e modifique sua 
tonalidade? 

não; donde resulta o comando: 

SOUND d/8, 9. 

Nota 12: 

- que tipo de nota é? 
é uma colcheia. 

- existe algum sinal que altere a sua duração? 
não; portanto temos d/8. 

- qual é a tonalidade da nota? 

a nota está na terceira linha, portanto é um Si e o valor de 
t = 11. 

- existe algum sinal que preceda a nota e modifique sua 
tonalidade? 

não; resulta o seguinte comando para esta nota: 

SOUND d/8, 11. 

Nota 13: 

- que tipo de nota é? 
é uma colcheia. 

- existe algum sinal que altere a sua duração? 
não; portanto temos d/8. 

- qual é a tonalidade da nota? 
idêntica à da 12, portanto t = 11. 

- existe algum sinal que preceda a nota e altere sua 
tonalidade? 

sim, um sustenido; portanto a tonalidade final é t = 11 + 
1 = 12. O comando para esta nota é: 

SOUND d/8, 12. 

Para os primeiro e segundo compassos que englobam as no¬ 
tas de 3 até 13 temos a seguinte linha de programação: 

20 SOUND d/8, 1; SOUND d/4, 9; SOUND d/8, 1; SOUND 
d/4, 9; SOUND d/8, 1; SOUND (d/8 + d/2 + d/8), 9; SOUND 
d/8, 9; SOUND d/8, 11; SOUND d/8, 12. 

Ainda como parte deste exemplo a Figura 15 mostra mais dois 
compassos. Porém, sem o detalhamento feito acima. Tente fa¬ 
zer a decodificação sem consultar o resultado apresentado a 
seguir. 
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Para verificar se você acertou vamos ao resultado destes dois 
compassos: 

40 SOUND d/8, 13; SOUND d/8, 9; SOUND d/8, 11; SOUND 
d/4, 13; SOUND d/8,8; SOUND d/4,II. 

50 SOUND d/2, 9; PAUSE (d/4) * 60; 

SOUND d/8, -1; SOUND d/8, 0. 


Exemplo de uma música completa: 

Finalizando temos na Figura 16 a partitura completa da músi¬ 
ca 'The Entertainer". Os compassos foram numerados. Obser¬ 


ve que nos compassos números 16 e 25 existem pausas de 
colcheia. 

Além das constatações feitas no exemplo anterior, quando ve¬ 
rificarmos a clave, a escala e a fórmula de compasso, devemos 
estabelecer a seqüência de execução da música. Para tanto, va¬ 
mos identificar os sinais de repetição existentes, utilizando as 
letras A até F. A execução começa em A e vai até C, pula o déci¬ 
mo sétimo compasso e vai do E até o F, volta ao B e conclui em 
D. Neste caso é necessário observar as expressões "To Interlu- 
de", Tnterlude", "D.S. al Fine", "Fine" e o sinal (Segno). Esta se¬ 
qüência de execução pode ser estabelecida com auxílio dos co¬ 
mandos FOR e NEXT. A partir destas considerações iniciais vo¬ 
cê pode programar esta música. 

Figura 12: Esquema básico para escala de conversão. 
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Figura 13: 

Escala de Lá maior (Fá menor). 
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Figura 16: Pauta completa do tema do filme "Golpe de Mestre 
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A listagem 2 é o programa completo da música 'The Enter- 
tainer". Observe que nesta lista incluímos a impressão do título 
da música e de seu autor. Além disso, foi acrescentada a sele¬ 
ção do valor "d". (Os vários "REIVTs" com esclarecimentos po¬ 
dem ser omitidos.) Adicionamos, também, uma pequena rotina 
para gravar este programa; para tanto, basta digitar GO TO 900. 

Conclusão 

Embora este artigo esteja direcionado aos possuidores de TK 90X 
e ZX-Spectrum, os rudimentos de música nele apresentados são 
universais e válidos para qualquer tipo de computador. Basta 
adaptá-los às ordens de programação específicas de cada um 
dos equipamentos. 

Consultoria e Bibliografia : Consultoria Musical - Professora Ma¬ 
ria Eugenia Pacheco de Brito; - Manual do ZX-Spectrum - Ste- 
ven Vickers; ZX-Spectrum User's Handbock - R.J. Simpson & T.J. 
Terrell. 

Alexander Gromow é engenheiro da Siemens e trabalha com 
coordenação de projetos em hidrogeração. 


Listagem 2: Programa completo 
da música "The Entertainer". 


1 RE M p o f P; - G r o ííi o ui £ m 

2 CL5 : PRINT PT 0,7; 


1955 
>7HE EN 


TERTRINER" _ 

3 PRINT PT 5,3; “LR + "; PT d ,X3.; 
" (5 c o 1 t uo p t i n ) ’’ 

4 print PT 7 , 7 ; -íragtime nove 


i ty •>" 

6 IN PUT :: T £ »P 0 d£ ££ j3 d 0 l£U9i 
r 0 d =1.6 ) d ='" ; d PR INT PT 10 , 

li; "d = ”d 

5 PRINT PT 18 0 " >p a r a p arar 
" cPPS SHIFT " 4 - BREPK " 1 

10 5OUND d/8,-1 8 0U ND d/8,0: 
REM iniCi0 

15 FOR 5=1 TO 2 

20 SOUND d/8.1: SOUND d/4,9: 8 

OU ND d/8.1: SOUND d/4,9: SOUND d 
/ 8,1: 5 0 U N D C d / 8 -l- d / 2 + d / 3) , 9 : 8 0 U 
ND d/8,9: SOUND d/3,11: SOUND d/ 
8.12: REM compassos ns.l & 2 
40 SOUND d/8,13: SOUND d/S,9: 

SOUND d/8.11: S0UND (d/3 + d/33 ,13 
: SOUND d/8,8: SOUND d/4,11: HEM 
com-Passo no.3 

5O S0UND d/2,9: PP USE «d/43*60 
5 0 UN D d/3,-1: 8 0 U N D d/3,0: Ht M 

C 0 ffl P 3 £ £ O n 0 .4 

60 SOUND d/3.1: SOUND d/4,9: 5 

OU ND d/3.1: SOUND d/4,9: SOUND d 
/8.1: S0 UND l d/8 *ld/2+d/4 3 3 , 9: 8 

0UND d /8,5 S0UND d /8,4: REM C0?íi 
P 3 £ s 0 s n £ , 4 6 

80 SOUND d/8,3: SOUND d/8,6: S 
0 U N D d / 8,9 S 0 U N D C d / 8 + d / 8 3 , 13 : 

8 0 UN D d/3.11: S0UND d/3,9: S0 U ND 


d / 8,6 : H E M C O Bi P 3 £ £ O n 0 .7 
98 SOUND d/4,8: SOUND d/4,9: S 
OU ND d/4,11: SOUND d/8,-1: SOUND 
d /8.0: Ht M CO M P 3 £ £ O nO .8 
100 S 0 U N D d/8.1: S O U ND d/4,9: 8 
OU ND d/8,1: SOUND d/4,9: SOUND d 
/8.1: S 0 UND (d/8+d/2+d/8 3 ,9: S 0 U 
N D d/8,9: 8 0 UND d/3,11: S 0 UND d/ 
3,12: REM C 0 ffl P a £ £ 0 £ ns.9 4 10, i 
dem linha 2O 

120 SOUND d/3.13: SOUND d/8,9: 

SOUND d/3,11: SOUND (d/8 + d/8 3 ,13 
SOUND d/3,8: SOUND d/4 ,11: REM 
c o Bi - p a £ £ o n o . 11. i d e m i i n h a 40 
130 SOUND (d/2+d>43 ,9: SOUND d/ 
3,9: 3 O U ND d/8,9: 5O UN D d/8,11: 

R E M c o ííi p a £ £ o n o . 12 
140 SOUND d/8,13: SOUND d/S.9: 

S O U ND d/8.11: 8 OUND (d/8 + d/83 ,13 
: _ 8 O UN D d/3,9: 80 UND d/8,11: 8 0 U 
N D d/8,9: HtM C Offl P a£ £ O no.l3 
150 SOUND d/8.13: SOUND d/8.9: 

S O UN D d/3,11: 8OU ND íd/8 + d/83 ,13 
: S O U ND d/8,9: 3OUND d/8,11: 8 0 U 
ND d /8,9 : KtM C 0 ííi P a £ £ 0 n 0.14, i d 
£ ííi li- nha 140 

_160 SOUND d/8,13: SOUND d/3,9: 

S 0 U ND d/8,11: 8 OU ND (d/8 + d/8 3 ,13 
: SOUND d/8,8: SOUND d/4,11: REM 
com- passo no ,15 

165 IF a=2 THEN SOUND (d/2+d/4) 

,9: PP USE 4*(d/4 3 *60: GO!0 350: 

R iz M £ o ííi p a s £ o n o . 17, ííi a r c a d o c o m 


•'2, FINE-, com 

0 

comando FOR TO 

£ £ t a b£ 1 £ C £ ffl 0 £ 

£ 

o r d e m d o s 

t r e - 

C h 0 £ d 3 P a u t a 

. 



170 SOUND íd 

/ 2) 

,9: PP USE 

(d/83 * 


6 0: S OUND d/8,1: 8 0 UND d/3,2: SO 
U N D d / 8,3 : R t M C O ííi P a £ £ 0 n O .16, ffl 
arcado com -l. to INTERLUDE", co 
m isto na primeira passada o com 
P a s -s o n o . 17 £ ■' p u i a d o . 

190 SOUND d/4,4: SOUND d/8,6: S 
0 U N D í d / 3 + d / 8 3 ,4: S 0 U N D d / 8 1: S 
OU ND d/8,2: SOUND d /3.3: REM C 0m 
p a £ £ o n o . 18 

200 SOUND d/4,4: SOUND d/8,6: S 
OU ND d/4,4: SOUND d/3,13: SOUND 
d / 8,9 : 5 0 U N D d / 8,4 : REM C 0 ííi p 3 £ £ O 

no . 19 

210 SOUND d/8,6: SOUND d/8,8: S 
OU ND d/8,9: SOUND d/8,11: SOUND 
d/3,13: 50UND d/3,11: S 0 UND d/8, 
9: S0UND d/3,11: REM C 0 mp a £ £ 0 n 0 
.20 

220 S 0 U N D (d/2 3 ,4: RP USE ( d/8 3 * 
60_ SOUND d/8,1: SOUND d/3,2: SO 
U N D d / 3,3 : R 4 M C 0 ííi P 3 £ £ 0 n 0 .21 , i 
dem linha 170 

230 SOUND d/4,4: SOUND d/3,6: S 
0 UN D ( d/8 + d/8 3,4: S 0 U N D d/8,1: S 
0 U N D d / 8,2 : S 0 U N D d / 8,3 : R E M C 0 ííi 
passo no,22, idem linha lyO 

248 SOUND d/4,4: SOUND d/8,6: S 
0 UND (d/3 + d/8 3,4: S 0UN D d/3,4: S 
OU ND d/8,6: SOUND d /S . 7 : REM CO BI 
passo no. 2 3 

250 SOUND d/8.8: SOUND d/8,8: S 
OU ND d/3,8: SOUND d/8,3: SOUND d 
/ 8,8 _ S 0 U N D d / 8,6 : 5 0 U N D d / 8,3 : 

S 0 U N D d/8,-1: REM C0 ffl P a £ £ 0 n0.2 4 

268 S0 U N D íd/2 3 ,4: P P USE í d/8 3 * 
80: SOUND d/3,1: SOUND d/3,2: SO 
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U N D d / 6,3: H c M C 0 » p 3 £ £ 0 fi 0.25, i 


dO pulado 0 16 

de» linha 178 


345 NEXT 3 

278 SOU ND d/4.4: SOUND d/8.6: S 


358 INPUT "Oue r o uvir nova»ente 

0UND (d/8 + d/8) .4: S0UND d/8,1: 5 


? S(ENTER)/N LINE Zí: IF Z$=" 

0 U N D d / 8.2 : S 0 U N D d / 8.3 : R E M C 0 » 


n" OR 2 í ="N" THEN STOP 

passo no.26, ide» linha 198 


368 GOTO 18 

288 SOUND d/4,4: SOUND d/3,6: 8 


908 REM rotina p/ qr3var 

0 U N D d/4,4: S0UND d/8,13: S0 U N D 


910 C L S : P RINT RT 3,3; "C010q Ue 

d/8,9: 80UND d/8,4: REM C0 »p 3 S S 0 


u » a fit a vir g e » no" 

no .27-i de rí? Linha 200 


928 PRINT RT 4,18;"£ e u gra va do r 

298 SOUND d/8,6: SOUND d/3,8: 5 


* * 

OU ND d/8,9: SOUND d/3,11: SOUND 


938 PR INT RT 6,3 1 ‘ co n e C t e 0 C 3 b 

d/8,13: S 0U ND d/3,11: S 0 U ND d/3, 


o para gravar" 

9 _ _ S0UND d / 3,11: REM C0 » paS S 0 n 0 


948 PRINT RT 8,8; 31.;" flperte u 

• H 8, ide » 1 i n h 3 218 


m a t e c l a para gravar": PRUSE 0 

3 8 8 S 0 U N D (d / 2 + d / 3) , 9 : 5 0 U N D d / 


950 CL6 : PRINT RT 18,3; FLASH 

8,4: SOUND d/ 8, 3: SOUND d/3,4: R 


1;"PROGRAMA" ; INUERSE 1;" 'RRGTI 

E ?-i. C 0 » p 3 S S 0 n 0.2 9 


ME" INUERSE 8; "GR RU ANDO" 

318 SOUND d/4,9: SOUND d/8,6: S 


968 SfiUE “RRGTIME" LINE 1: REM 

0 U N D (d / 3 + d / 33 , 9 : S 0 U N D d / 3 , 6 : S 


co» o uso de "LINE 1" damos ini¬ 

OU ND d/3,9: SOUND d/8,6: REM CO» 


cio a u t o » a t i c o a o p r o a r a » a 

passo no.38 


.965 C L 5 : P RINT RT 3,3 ; " R e b 0 b i n 

328 SOUND d/8, 4: SOUND d /3,6: S 


e a f i t a " 

OU ND d /8,8: SOUND < ( d/S ) + C d/4 3 3 , 


978 PRINT rt 6 ,1;"Conecte o csb 

9 : S0UND d / 4,4: RE M C8 »p a S S 0 n 0 . 


o para veriricar! " 

31 


975 PRINT RT 9,5; FLRSH l.;">lig 

338 SOUND d/4,6: SOUND d/4,9: S 


ue o gravador e...” 

OU ND d/3,13 : SOUND í ( d/43 + í d/8 3 3 


988 PRINT RT 8,8 ; 3 1.; " Rp e r t e u » a 

,11: RtH C0 » p 3 S S 0 n0 . 32 


tec 1 a p ara v erificari": PRUSE 8 

3 4 0 S 0 U ND 1 d /2 3,9: PRUS E ( d / 4 3 * 


1088 CLS : PRINT RT 10.1; FLASH 

6 8 : S 0 UND d /8 ,-1 : 50 U ND d /8 ,8: R 


1;"PROGRMR" ; INUERSE 1;" " RfiGTIM 

EM c o » p a s s o n o . 33 , o ' D . S. a l i- i 


E" "; INUERSE 0; "UERIFICRNDO" 

ne " in dica qu e de v e » o s vo 11 ar a o 


1010 UERIFY "RRGTIME" 

" S " e ir ate " o co » passo 17, ten 


1028 CLS : STOP ■ 


SEU MICRO EXPLORADO AO MÁXIMO! 


0 SOFTWARE CIBERTRON, já tradicional no TK 85 e consagrado pelos peritos como a 
melhor opção para o TK 2000, está agora disponível também para o moderníssimo 
TK 90X com as mesmas características de qualidade: Sistema Mult igravação, poderc) 
sas rotinas em linguagem de máquina e instruções detalhadas. Qualquer que seja 
o seu TK, explore-o ao máximo com CIBERTRON SOFTWARE. 


TK 2 0 0 0 


Falcons 

Xadrez 

Bolo 

Eliminator 
Space Eggs 
Grand Prix 


Simulador de Voo 
Ceiling Zero 
Gamma Goblins 
Os Utilitários: 
Graphs 2000 
ROM 2000 


Inquestionavelmente o melhor 
software produzido p/ TK 2000. 


T K 9 O X 

Simulador de Voo (Manual em Português) 
Túmulo do Drácula (Tridimensional) 
Pac-man e Campo Minado 
Alta resolução gráfica, som e cores. 

T K 8 5 

Pinball Corrida Milionária 

Tourada TK Word (Aplicativo) 

Outros 12 programas em nossa lista. 


Se você preferir,envie cheque nominal cruzado à Cibertron Eletrônica Ltda - Caixa 
Postal 17.005 - CEP 02399 SP, para receber os programas em sua casa. Remessas em 
3 dias úteis. Jogos a Cr$32.900 cada - Utilitários e Simulador de Voo para TK 2000 
e TK 90X Cr$37.900 cada - TK Word e Simulador de Voo para TK 85 Cr$32.900 cada. Ga¬ 
rantia integral. Encontre toda linha Cibertron na Magnodata Tel. (011) 255 7653. 


Revendedores autorizados: 












ARTIGOS 


Um arquivo bibliográfico no 
TK 2000 parte I 


Leitura/impressão do arquivo 


Juan Carlos Ceballos 


Na Microhobby número 22, apresentou- 
se um programa para criação e gravação 
em fita de um arquivo bibliográfico (AR- 
KIV 1), descrevendo os seus critérios de 
organização. Este artigo será referido co¬ 
mo Arkiv 1 no que segue. Apresento ago¬ 
ra ao leitor um segundo programa, ARKIV 
2, capaz de realizar a leitura do arquivo e 
apresentá-lo no vídeo, com impressão op¬ 
cional das referências bibliográficas. O 
operador poderá escolher a ordem de apre¬ 
sentação destas, embora, por enquanto, 
tal escolha fique restrita ao número do re¬ 
gistro geral das referências. Num artigo 
posterior, será introduzida a possibilidade 
de procura e apresentação de referências 
por ordem alfabética de autor. 

Obviamente, para melhor compreender 
os comentários e as descrições do ARKIV 
2, é recomendável ter à mão o artigo an¬ 
terior. Ao fim deste texto indicaremos co¬ 
mo unificar o ARKIV 1 e o ARKIV 2 num 
único programa com duas opções: cria¬ 
ção/gravação e leitura/ impressão. 

A Estrutura do ARKIV 2 

O arquivo criado por ARKIV 1 era um ve¬ 
tor de 7500 dados numéricos. No ARKIV 
2, a memória ocupada com vetores de da¬ 
dos é a mesma: S%(7500), L%(100), se¬ 
jam em torno de 15200 bytes. Sendo que, 
ARKIV 2 (v.listagem 1) excederá 66 kb. An¬ 
tes de carregar o programa deve-se pas¬ 
sar à segunda tela de vídeo 
(MP(RETURN)). 

Na listagem do ARKIV 2, as linhas 130 
a 138 controlam a opção de vídeo/impres¬ 
sora, sendo que a apresentação das refe¬ 
rências é gerenciada, através da sub-rotina 
150. Dentro dela, a sub-rotina 180 trans¬ 
forma o vetor numérico de códigos ASC 
em caracteres e a sub-rotina 190 define a 
modalidade de impressão. Sobre esta úl¬ 
tima, comentaremos mais adiante. 

Lembre-se que no ARKIV 1, L%(K) defi¬ 
nia a posição de início da k-ésima referên¬ 
cia, e em particular L%(0) = NF indicava o 


número de referências no vetor-arquivo. No 
ARKIV 2, após a leitura de dados, a linha 
154 define NF e Z = L%(NF), posição de iní¬ 
cio da última referência, solicitando-se a 
partir de qual referência (número de ordem 
geral N% no arquivo) deseja-se a apresen¬ 
tação. Os N% inicial e final no arquivo são 
informações contidas nos elementos 
S%(2) e S%(Z + 1). 

No ARKIV 1, S%(0) fornecia o número 
total (real) de dados numéricos no arqui¬ 
vo. A linha 757define S%(0) 1 como a úl¬ 
tima posição a ser verificada na leitura de 
referências; as linhas 158 a 175 definem 
um "loop" de leitura seqüêncial de referên¬ 
cias, desde a N% escolhida até a final do 
arquivo, a menos que a seqüência seja 
quebrada (na linha 171). 

Na prática, as referências vão sendo 
apresentadas no vídeo (e eventualmente 
sendo impressas); no fim de cada uma, 
oprimir a barra de espaço será interpreta¬ 
do como chamada da referência subse- 
qüente. Oprimindo uma outra tecla qual¬ 
quer, o programa pergunta se deseja ou¬ 
tro arquivo: se for "sim" (tecle "S"), será 
lido um outro de fita; se for "não" (outra 
tecla que não "S"), o mesmo arquivo já li¬ 
do, e presente na memória, fica disposto 
para novas apresentações de referências 
(isto permite escolher arbitrariamente a se¬ 
qüência de referências). Por outro lado, se 
a apresentação seqüencial for completa¬ 
da até a última referência do arquivo, o pro¬ 
grama passará à linha 133, pedindo nova 
opção de arquivo. 

A sub-rotina 180 forma e imprime fra¬ 
ses completas, letra por letra, passando 
dos códigos ASC II do setor de dados, 
X = S%(J), aos caracteres corresponden¬ 
tes CHR$(X). A apresentação das referên¬ 
cias segue este padrão: 

1) Número de ordem geral (N%), segui¬ 
do de código do local (X%) onde de se en¬ 
contra fisicamente a referência (linha 162): 

2) na linha seguinte, nome dos autores 
(enfatizado na impressora) e no ano de pu¬ 


blicação (linhas 164 e 166): 

3) continua com o título do trabalho ( li¬ 
nha 167): 

4) a seguir, escreve < COD. P% > onde 
P% é o código da publicação, e a referên¬ 
cia bibliográfica complementar (linhas 168 
e 169). Os itens 2 a 4 são apresentados 
um a continuação do outro. Se for dese¬ 
jado separá-los, de forma a cada um apa¬ 
recer em linhas diferentes, será suficiente 
incluir um comando PRINT: no início das 
linhas 165 e/ou 168 dependendo do setor 
que se deseja destacar. Adicionando este 
comando, fica eliminado o "efeito de con¬ 
tinuidade" do último ponto e vírgula no 
"loop" da linha 183. 

Acerca da impressão do arquivo 

A linha 133 permite optar pela impres¬ 
são de referências (V% = 2). De fato, o Ma¬ 
nual da interface da impressora TK 2000 
(acompanhando o cabo conector e fita 
cassete com software IMP01) descreve só 
as capacidades específicas da rotina 
IMP01. Aberto o "diálogo" com a impres¬ 
sora, através de CALL 1302, o micro pas¬ 
sa também a ter acesso a um conjunto 
bastante grande de possibilidades aloca¬ 
das no "hardware" da própria impresso¬ 
ra, e que permitem programar diversas mo¬ 
dalidades de impressão. 

Embora IMP01 possa ser lida depois de 
carregar o ARKIV 2, é recomendável 
introduzí-la antes dele, para evitar os efei¬ 
tos de problemas com o gravador, o que 
normalmente leva a aplicar um RESET e re¬ 
petir a operação, com conseqüências tão 
imprevisíveis quanto desagradáveis, em 
particular se já tinha sido lido o arquivo de 
dados. 

Optando-se por imprimir as referências, 
será chamada a sub-rotina 190. Na linha 
191 pede-se, dentre outras especificações, 
o número de caracteres por linha a serem 
impressos. Na linha 192, um POKE intro¬ 
duz esta informação no TK. Não existin¬ 
do indicação em contrário, as frases serão 
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impressas em maiúscula, com caracteres 
normais. Mas, é aqui que entram as pos¬ 
sibilidades particulares da impressora. A 
linha 191 pede outras especificações, que 
podem ser fixadas de acordo com o tipo 
de impressora utilizada. No meu caso, 
trata-se de uma Dismac 80 cpl/80 cps, 
mas as normas de programação de seu 
funcionamento parecem seguir o padrão 
ASC internacional; em princípio, os co¬ 
mentários que seguem são válidos para a 
maioria das impressoras do mercado. 

Ativada a impressora (CALL 1302), e de¬ 
finindo o caractere ESCAPE (não imprimí- 
vel) E$ = CHR$(27), as instruções para 
escrever com diversos tipos de letra são 
bem simples. No ARKIV 2 são utilizadas 
as opções conforme tabela I 

Seguindo as normas do BASIC comum, 
os pontos e vírgulas (;) finais permitem que 
a frase a ser escrita não comece na linha 
seguinte. Os símbolos "4", "5", "E" ou "F" 
não aparecem na escrita da impressora 
(ela os interpreta como código habilitado 
pelo ESCAPE E$), mas sim na tela de ví¬ 
deo; pelo menos, é o caso do TK 2000. 
Os três tipos de impressão podem ser 
combinados numa única linha de PRINT. 


Por exemplo: 

10 CALL 1302:PRINT E$;"4";E$;"E"; 
CHR$(18);"ARKIV" 

12 PRINT E$:"5";E$;"F";CHR$(15); 
"ARQUIVO" 

14 PRINT "MICROHOBBY":CALL 1305 

Este programa produzirá o efeito seguin¬ 
te: primeiro, imprimir a palavra ARQUIV em 
tamanho normal, formato itálico efatizado- 
do; segundo, na linha seguinte imprimir 
ARQUIVO em tamanho pequeno, forma¬ 
to normal não enfatizado. Terceiro, impri¬ 
mir a palavra MICROHOBBY no mesmo es¬ 
tilo que ARQUIVO, antes de desativar a im¬ 
pressora (CALL 1305). A partir do momen¬ 
to que for introduzido um dado código de 
escrita, a impressora continua a escrever 
nesse código (existem algumas exceções, 


mas não é o caso das opções do ARKIV 
2). Se a impressora for desligada, antes da 
próxima ordem de escrita, a menos que o 
código seja re-introduzido, ela terá perdi¬ 
do a memória dele e tornará a escrever na 
modalidade "normal" (incluída aqui a im¬ 
pressão de 80 caracteres por linha). Po¬ 
rém, se desativada, mas não desligada, 
conserva a memória do último código im¬ 
posto, e uma posterior ativação continua 
a produzir o mesmo tipo de escrita. Todos 
estes processos não são percebidos atra¬ 
vés do vídeo, que apresenta sempre o 
mesmo tipo de letra. 

São interessantes duas observações: 
em primeiro lugar, se a escrita for em ca¬ 
racteres de tamanho pequeno, a impres¬ 
sora admitirá até 127 caracteres por linha. 
No entanto, a linha enfatizada sairá em 
tamanho normal, admitindo assim mais de 
80 caracteres por linha. Segundo, os ca¬ 
racteres são escritos em maiúscula. A es¬ 
crita em minúscula, habilitada através de 
um comando POKE 1288,1, registraria no 
vídeo só caracteres especiais do TK 2000 
(V. Manual do Operador, p.24), e seria 
completamente ilegível na tela, além de 
não começar frases com maiúscula na 
impressora. 

As linhas 194 a 196 formatam o núme¬ 
ro de linhas por página, ilustrando outras 
"habilidades" de uma impressora. Quan¬ 
do esta é ligada, ficam ativados alguns 
comportamentos padrões; dentre eles, 1) 
a posição em que a folha se encontrar se¬ 
rá considerada topo de página, pronto pa¬ 
ra primeira linha de impressão; 2) se for 
acionado o botão de alimentação de for¬ 
mulário ("form feed", "FF"), o papel avan¬ 
ça até um novo topo de página, situado a 
11 polegadas do topo anterior (este é, pre¬ 
cisamente, o tamanho padrão das folhas 
destacáveis por picotado no papel da im¬ 
pressão); 3) oprimindo o botão de alimen¬ 
tação de linhas ("line feed", "LF"), o pa¬ 
pel avança de 12/72 = 1/6 de polegada, de 
forma que uma página está programada 
para ser preenchida com até 66 linhas. 

Estes comportamentos podem ser re¬ 
programados. Com a impressora ativada, 
o comando 


Tabela 1 





tamanho 

normal 

PRINT CHR$(18); 




pequeno 

PRINT CHR$(15); 


PRINT E$;"5"; 

formato 

normal 

PRINT E$;CHR$(53); 

ou 

PRINT E$;"4"; 


itálico 

PRINT E$;CHR$(52); 

ou 

PRINT E$;"E"; 

tipo 

efantizado 

PRINT E$;CHR$(69); 

ou 

PRINT E$;"F"; 


normal 

PRINT E$;CHR$(70); 

ou 


PROTEJA 

o seu 

ncRocomjTfflOR 



COM FILTRO DE 
LINHA 


contra 


RUÍDO elétrico 

INTERFERÊNCIA: 

RADIO FREQUÊNCIA (RF) 




contra 


PICOS DE VOLTAGEM 
TRANSIENTES DE TENSÃO 


POTÊNCIA: ATINGE ATÉ 1,5 KVA 


ZENTRANX 

Rua Senador Flaquer, 376/386 
Santo Amaro — CEP 04744 

\_ Telefone 522-2411 - Sérgio y 


PRINT E$;"A";CHR$(J); ou PRINT 
E$;CHR$(65);CHR$(J); 

programa em J/72 de polegada o avanço 
entre linhas. Na linha 194 foi escolhidoo 
J = 9, obtendo-se uma escrita um pouco 
mais compacta e poupando-se papel... Por 
outro lado, a aritmética simples indica que 
o número de linhas resultante por folha 
completa é de 66x12/J ( = 88, em nosso 
caso). Para evitar que a escrita invada o pé 
de cada página, nas linhas 195 e 196 têm- 
se os comandos: 

195 X = 792/J:PRINT E$;"C";CHR$(X); 

196 K = 10:PRINT E$;"N";CHR$(K); 

os quais programam o comportamento se¬ 
guinte: com e$;"C" uma página comple¬ 
ta é mais definida como equivalente a X 
linhas de impressão; a seguir, o E$;"N" 
programa um "pulo" até o próximo topo 
de página, quando faltarem K linhas para 
completar a folha atual. Considerando que 
o topo de página inicial podia estar locali¬ 
zado umas cinco linhas abaixo do picota¬ 
do entre duas folhas, o "pulo" será produ¬ 
zido desde uma posição K-5 ( = 5, em nos¬ 
so caso)/linhas antes do próximo picota¬ 
do. A mancha gráfica resultante (área lí¬ 
quida impressa) ficará, dessa forma, razoa¬ 
velmente centrada em cada folha. 

O leitor pode re-programar esta forma- 
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tação, segundo suas necessidades, bas¬ 
tando modificar os valores de J, X ou K. 
Detalhes dos códigos utilizados poderiam, 
contudo, variar com a marca da impresso¬ 
ra; todavia, todas estas, e muitas outras, 
formas de programar sua impressora es¬ 
tão descritas, em princípio, no manual de 
operação. 

Unificação de ARKIV 1 e ARKIV 2 

0 programa ARKIV 2 (listagem 1) é au¬ 
tônomo com relação ao ARKIV 1. Contu¬ 
do, é interessante que os aspectos de ge¬ 
ração/gravação e leitura/impressão de um 
arquivo sejam opções dentro de um mes¬ 
mo programa. Com esse intuito, a nume¬ 
ração de linhas do ARKIV 2 foi escolhida 
de forma a permitir a união dos dois pro¬ 
gramas. Para isso, basta carregar o ARKIV 
1 e começar a digitar o ARKIV 2, segun¬ 
do o processo seguinte: a) copiar só a 
partir da linha 129 da listagem número 1 
(a linha 120 será assumida pela linha 15 
do ARKIV 1); 

b) eliminar a linha 21 do ARKIV 1 (na 
verdade, ela é neutral com relação ao pro¬ 
cessamento de informação); 

c) digitar, ainda, a listagem número 2 em 
anexo. 

Assim, o ARKIV 1 e ARKIV 2 ficam uni¬ 
ficados num único programa ARKIV. É só 
gravá-lo em fita, mediante um SAVET AR¬ 
KIV (RETURN). 

Um comentário final 

Dispondo de drive, os processos de gra¬ 
vação e leitura são bem mais confortáveis. 
Os comandos para estes processos, toda¬ 
via, são um pouco diferentes. Por outro la¬ 
do, a utilização de disquete permite criar 
arquivos que ocupam menos memória. 
Mas, isto será motivo para um outro arti¬ 
go. Por enquanto, posso antecipar que os 
arquivos que já foram criados pelo leitor, 
utilizando-se de fita cassete, têm uma tra¬ 
dução bastante simples para o formato em 
disquete. 


ÜO REH PROGRAMA "ARKIV 
2"-0í/09/85 

ÍÍ2 REH AUTOR: JUAN C. 
CEBALLOS 

Ü3 REH R. LUIS GOES, i 
409 

ÍÍ4 REH 04043 SAO PAULO 
(SP) 

115 REH 

116 REH LEITURA/IHPRESS 
AO DE REFERENCIAS DO ARKIV 
1 (HICR0H0BBY 22, 1985) 


118 REH . 


Z; SPC( 4);"LOCAL ";XZ 



163 PRINT TAB( 4) ; : IF 

120 DIM SZ(750Q),LZ(i00) 


VZ = 2 THEN PRINT EÍ;"E"; 

129 REH . 


164 JI = Z + 10:JF = Z + 



SZ(Z + 5) - 2: G0SUB 180 

130 REH C0HECA ROTINA A 


165 IF VZ = 2 THEN PRIN 

RKIV2 


T EÍ;"F"; 

131 Aí = "S" 


166 PRINT "(";YZ;") - "; 

133 INPUT "D VIDEO; 2)IH 
PRESS0RA? 0PCA0=";VZ 


167 JI = JF + 1:JF = Z + 

135 G0SUB 150 


SZ(Z + 6) - 2: G0SUB 180 

137 PRINT : INPUT "OUTRO 


168 PRINT " - <C0D.";PZ; 

ARQUIVO? S/*:";AÍ 


"> 

' 1 

138 G0T0 133 


169 JI = JF + 1:JF = LZ(N 

139 REH . 


+ 1) - i: G0SUB 180 

... . 


170 PRINT : IF VZ = 2 TH 

140 REH LEITURA ARQUIVO 


. EN CALL 1305 

DE FITA 


171 PRINT : PRINT "TECLE 

141 PRINT : PRINT "<PREP 


(ESPAC0) P/ SEQUENCIA N0R 

ARE GRAVADOR E": PRINT "GE 


HAL": GET Aí 

TA1 PARA LEITURA DE ARQUIV 


172 IF N0T ( ASC (AI) = 

0)": GET Aí 


32) G0T0 137 

142 RECALL LZ: RECALL SZ 


175 NEXT 

143 PRINT : PRINT "<LEIT 


176 RETURN 

179 REH . 

URA TERHINADA": PRINT "GET 



Ai PARA C0HECAR >" 


180 REH PRINT REFERENCI 

144 GET Al: RETURN 


A 

149 REH . 


183 FOR J = JI T0 JF:X = 



SZ(J): PRINT CHRÍ (X) ; : 

150 REH SUBR0TINA LISTA 


NEXT 

GEH SIHPLES 


185 RETURN 

151 IF N0T (Aí = "S") G 


189 REH . 

0T0 154 



152 G0SUB 140: H0HE 


190 REH FIXA TIPO IHPRE 

153 NF = LZ(0):Z = LZ(NF) 


SSA0 

154 PRINT NF;"REFS. (";S 


191 INPUT "C:CARAC./LINH 

A; t:TAHANH0 N0RHAL(G)/PEQ 

Z(2);" => ";SZ(Z + !)•: IN 


UENO(Í); FíFORHATO N0RHAL( 

PUT ") VAI LISTAR REF.NI 


0)/ITALIC0(i) --> C,T,F="; 

=";NI 


C,T,F 

155 PRINT : IF VZ = 2 TH 


192 P0KE 1294,C:E1 = CH 

EN G0SUB 190: H0HE 


Rí (27):Ti = CHRÍ (18-3 

157 LZ(NF + 1) = SZ(0) + 


* T):FÍ = CHRÍ (53 - F) 

1:NI = NI - SZ<2) + 1 


193 CALL 1302: PRINT EI; 

158 FOR N = NI T0 NF:Z = 


Fí;Ti; 

LZ(N):JF = LZ(N + 1) - Z 


194 J = 9: PRINT EI;"A"; 

160 NZ = SZ(Z + 1):XZ = S 


CHRÍ (J); 

Z(Z + 2):YZ = 1900 + SZ(Z 


195 X = INT (792 / J): P 

+ 3):PZ = SZ(Z + 4) 


RINT EÍ;"C"; CHRÍ (X); 

161 IF VZ = 2 THEN CALL 


196 X = 10: PRINT EÍ;"N"; 

1302 


CHRÍ (K); 

162 PRINT : PRINT "=>";N 


198 RETURN 

■ 


38 MICROHOBBY 

















ARTIGOS 


Estatística, a Análise 
de dados no micro 

pessoal parte III 

Fábio Augusto Polonio 


Iniciada na revista 22, esta matéria vem dar continuidade aos 
conceitos de Estatística descritiva. 

A importância dessa ciência, um tanto subestimada, é nota¬ 
da em diversas atividades do dia-a-dia de médicos, pesquisado¬ 
res, engenheiros, etc. 

Como é uma ciência exata, existe a tendência de se crer que 
sua aplicação só se destine a estudos de engenharia e matemá¬ 
tica, o que não é verdade. 

O estudo estatístico não se restringe à análise de amostras 
de peças mecânicas ou eletrônicas. Entre outras inclui-se o es¬ 
tudo de tendências do comportamento humano, tanto que é ma¬ 
téria ministrada regularmente nos cursos de psicologia, econo¬ 
mia, direito, medicina (Bio-Estatística), etc. 

Com o auxílio que temos hoje em dia de máquinas de calcular 
sofisticadas e computadores, ela se tornará cada vez mais aces¬ 
sível e de fácil utilização. 

Porém, certos conceitos devem ser entendidos e guardados 
para uma perfeita aplicação e entendimento da matéria. 

Assim, na edição 22 vimos uma pequena introdução à esta¬ 
tística e suas aplicações com alguns conceitos de sumarização 
de dados completados na edição 23. Nesta explicaremos os ti¬ 
pos de variáveis e suas ocorrências; os conceitos de dados bru¬ 
tos; rol; arranjo; amplitude da amostra e formas de representa¬ 
ções gráficas de variáveis. 

Consideramos ainda que os dados foram coletados baseados 
em algum método, para que a amostra não seja tendenciosa, o 
que causaria uma análise errônea da situação. 

Procuramos também embasar o leitor com o intuito de forne¬ 
cer os dados necessários para uma análise final, chamada Infe¬ 
rência estatística. 

Assim, este artigo conceituará medidas de posição e disper¬ 
são. Essas medidas representam maneiras de resumir ainda mais 
os dados, tornando-os mais informativos. 

Como de praxe, fechando o artigo há um programa dedicado 
ao TK-2000. 

Medidas de posição 

São medidas que sumarizam os dados de forma a apresentar 
alguns valores que sejam representativos de toda a série. Elas 
são conhecidas também por medidas de tendência central, pois 
representam as ocorrências pelos seus valores médios, em tor¬ 
no dos quais tendem a concentrarem-se os dados. 

Usualmente, emprega-se uma das seguintes medidas de po¬ 
sição central: média aritmética, mediana ou moda. 


Moda (Mo) 


A moda é a medida que é definida pelo elemento com maior 
freqüência, dentro da amostra, ou seja, o elemento que ocorre 
o maior número de vezes, dentro do conjunto de valores obser¬ 
vados. Ela é representada por Mo. Assim para o conjunto de 
realizações: 


Xi 

F 

1 

1 

2 

3 

3 

5 

4 

1 

(F) 

10 


-►Maior Freqüência - Mo = 3 


Em alguns casos poderemos ter mais um elemento com a má¬ 
xima freqüência e, conseqüentemente, mais de uma moda para 
a distribuição, isto é, a distribuição dos valores pode ser bimo- 
dal trimodal, etc. 


Mediana (Md) 


Quando a série de observações está ordenada segundo suas 
grandezas, teremos uma realização que ocupará a posição cen¬ 
tral dessa série. Assim, na série 3,3,5,7 e 9, o valor 5 que é o 
elemento central da série é denominado Mediana , Md. 

Se o número de observações é par assume-se como media¬ 
na, a média aritmética dos valores centrais. Assim, para a série 
2,5,7,8, 9 e 9, a mediana será: 

Md= 7 + 8 


2 


7,5 


Média Aritmética (Me) 


Esse conceito, já bem familiar ao leitor, é a soma das realiza¬ 
ções dividida pelo número total das ocorrências. Na série 
1,3,5,6,7 e 8 a média aritmética será: 


Me = 1+3+5+6+7+ 8 
6 


30 

6 


Representaremos a média aritmética por x. 

Quando necessitamos das medidas de posição, para uma va¬ 
riável contínua, devemos tomar alguns cuidados especiais. Co¬ 
mo os dados estão agrupados em classes perdem-se informa¬ 
ções sobre cada caso individual. Uma boa aproximação é supor 
que todos os dados possuam valor igual ao valor médio da classe. 

Assim, tomamos os limites de cada classe e calculamos a mé¬ 
dia aritmética entre eles e, a partir desses valores, determina¬ 
mos as medidas de posição (Moda, Mediana e Média Aritmética). 


Medidas de dispersão 


Quando resumimos os valores das observações, através do cál¬ 
culo das medidas de posição, não dá para ter uma idéia da varia¬ 
bilidade dos valores na amostra. Por exemplo, tomemos as amo- 
tras A,B,C e D. 

A = 1,3,5,7,9 - Me = 1 + 3 + 5 + 7 + 9 


5 


B = 2,3,5,7,8 
C = 5,5,5,5,5 
D = 1,2,5,5,12 


Me = 2+3+5+7+8 


= 5 


Me = 5+5+5+5+5 


= 5 


Me = 1+2+5+5+12 


= 5 


5 
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Os quatro casos citados tem média aritmética = 5. Com ape¬ 
nas essa medida pouco ou nada se sabe sobre as variabilidades 
das amostras. Notamos então a conveniência de se criar uma 
medida que sumarize a variabilidade das séries para que possa¬ 
mos compará-las, segundo algum critério pré-estabelecido. Duas 
medidas são mais comumente usadas: desvio médio e variân¬ 
cia. Elas servem para medir a concentração dos dados em torno 
de sua média. 

Para compreendermos melhor o significado disto conceitua¬ 
remos desvio: Desvio é a variação (diferença) entre a média e 
o valor estudado. _ 

Para o grupo A, os desvios serão: Xi - X: -4,-2,0,2,4. Para qual¬ 
quer conjunto de informações, a soma dos desvios é igual a ze¬ 
ro. Sendo assim, a soma deles não é uma boa medida. Para evi¬ 
tarmos o valor zero para a medida temos duas opções. 

A primeira opção é tomar a somatória dos desvios em módu- 
to, isto é, a soma dos valores absolutos de cada desvio. Para o 
grupo A temos então: 

5 

E ! Xi - X ! = 4 + 2+0 + 2+4 = 12 

i = 1 

A segunda forma será considerar o total dos quadrados dos 
desvios. Para o grupo A obteríamos: 

5 

£ (Xi - X) 2 = 16+4 + 0+4 + 16 = 40 

i + 1 

O uso dos totais pode causar dificuldades de interpretação para 
conjuntos de dados com diferentes números de observações. 
Desta forma, devemos exprimir as medidas como médias, ou seja, 
dividimos o valor encohtrado pelo número de observações. 

Ficam definidos então desvio médio e variância por: 
n 

DM (x) = E ! Xj - X !/n 
i = 1 

Significado: O desvio médio de uma amostra X é igual a soma 


dos n desvios, dividido pelo número de observações, 
n 

e: Var (x) = E (Xj - X) 2 /n 
i = 1 

Significado: A variância de uma amostra X é igual a soma dos 
quadrados dos desvios dividida pelo número de observações. 

Como a Variância é uma medida que expressa um desvio qua¬ 
drático, podem ocorrer erros de interpretações da análise. Uma 
maneira de evitar isso será calcular o desvio-padrão que é a raiz 
quadrada da variância. Temos, assim, uma medida expressa na 
mesma unidade dos valores observados. 

DP(x) = vVar(x) 

Sumário 

Foram apresentados aqui os conceitos de medidas de posição 
(Moda, Mediana e Média) e medidas de dispersão (Desvio mé¬ 
dio, variância e desvio padrão). 

Com as medidas de posição sumarizamos ainda mais os da¬ 
dos. Essas medidas fornecem chamadas também de medidas de 
tendência central, pois representam as ocorrências realizadas pe¬ 
los seus valores médios. 

No entanto, a sumarização dos dados, através das medidas 
de posição, esconde as informações sobre a variabilidade da 
amostra. Essas informações são obtidas, através do cáculo das 
medidas de dispersão que, são as médias dos desvios em rela¬ 
ção a média da amostra. Com esse conjunto de medidas temos 
demonstrada uma estratégia de análise. 

Há ainda um outro porém. As medidas de dispersão são afe¬ 
tadas de forma exagerada por valores extremos e não fornecem 
qualquer informação sobre a assimetria da distribuição dos va¬ 
lores. Para contornar estes fatos mais algumas medidas são uti¬ 
lizadas. A mediana (Md), os extremos e os quartis ou juntas (J). 

A mediana é.... Bem, esse é o assunto do próximo artigo! 


iO INPUT "QUANTOS DADOS 
SERÃO PESQUISADOS ?";N 

13 DIH F(N) 

14 C = 1 

15 DIH H0(N,2) 

16 HO = 1 

17 F = 1 

19 H = 1 

20 DIH A(N) 

30 FOR I - 1 TO N 
40 PRINT "ENTRE 0 ";I;"' 
DADO" 

50 INPUT A(I) 

60 NEXT 

70 FOR X = 1 TO N - 1 
80 FOR Y = X TO N 
90 IF A(X) > A(Y) THEN 
GOSUB 1000 
100 NEXT : NEXT 
110 FOR I = 1 T0 N 
115 IF I = N AND A(N) = 
A(N - 1) THEN F = F + .' 


0T0 140 

117 IF I - N AND A(H) < 

) A(N - 1) THEN N0(H r i) = 
A(N):M0(H,2) = FsF(H) = F 
F:F = í: G0T0 140 
120 IF A(I) = A(I + 1) T 
HEN F - F + 1 
130 IF A(I) < > A(I + 1 
) THEN M0(M r i) = A(I):H0(H 
,2) = F:F(H) •■= F:H = H + 1 
:F = 1 

140 NEXT 

150 FOR P - í T0 H - 1 

160 FOR Q = P T0 M 

170 IF F(P) ) F(Q) THEN 
GOSUB 2000 
175 NEXT : NEXT 

177 TEXT : PRINT "FREQilE 

NCIA DA M0DA-";F(M) 

178 HTAB 2: VTAB 202 PRI 
NT "PRESSIONE QUALQUER TEC 
LA"2 GET Al 

180 FOR K •= 1 T0 H 


190 IF N0(K,2) = F(M) TH 
EN PRINT C;"' H0DA PARA A 
0ISTRI8UICA0-";N0(K,i) 

195 NEXT 
200 FR = 0 
205 E - 0 

210 FOR R - 1 T0 N 
220 E ■= H0(R,i) + E 
230 FR - H0(R,2) + FR 
240 NEXT 

250 ME = INT (E / FR) 

255 TEXT 

260 PRINT "MEDIA ARITMET 
ICA DA DISTRIBUICA0-"»HE 
270 END 
1000 AUX = A(X) 

1010 A(X) = A(Y) 

1020 A(Y) = AUX 
1030 RETURN 

2000 AUX = F(P)íFÍP) = F( 
Q):F(Q) = AUX 
2100 RETURN 
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Se você possui um 
TK 2000, de hoje em 
diante não pode mais 
dispensar os programas 
Microidéia para o seu 
micro. 

Com eles, você con¬ 
trola estoques, custos, 
receitas e contas bancá¬ 
rias. Programa as finan¬ 
ças domésticas e as de 
suas empresas. E cadas¬ 
tra seus clientes, forne¬ 
cedores ou amigos. 


O software Microidéia 
vai transformar seu 
TK 2000 numa podero¬ 
sa ferramenta profissio¬ 
nal, pessoal ou domésti¬ 
ca. Capaz de realizar em 
segundos tarefas que 
lhe tomavam um grande 
tempo e esforço. 

Totalmente desenvol¬ 
vidos no Brasil, todas as 
instruções de tela e ma¬ 
nuais são em português. 
E toda vez que lançar¬ 
mos uma nova versão 


de um software, você 
poderá trocá-la por seu 
programa original. 

Em cassete ou 
diskette, já temos para 
TK 2000: Orçamento 
Doméstico, Controle 
Bancário, Mala Direta, 
Mini Banco de Dados, 
Fluxo de Caixa, Contas 
a Pagar, Contas a Rece¬ 
ber e Controle de Esto¬ 
ques, todos compatíveis 
com o Apple e 
TK 2000 II. 


Procure já um dos 
nossos revendedores e 
abra seu TK 2000 para 
o software Microidéia. 

E sinta uma nova estre¬ 
la nascendo ao seu lado. 

Mas, se em sua cida¬ 
de não tem revendedor 
Microidéia, peça qual¬ 
quer um destes progra¬ 
mas pelo correio. 

Em cassete eles 
custam Cr$ 55 mil. 

Em diskette, o preço 
é CrS 250 mil. 


TK 2000. Open for 
Software Microidéia. 



Sim! Programa K7 Disk Quant. Preço 

Quero adquirir 
o(s) seguinte(s) 
pnograma(s) 

Microidéia: 

TOTAL 


Estou enviando um cheque do banco _ 

_de n.°_nominal à Microidéia Ltda. 


Cidade 
CEP_ 


Microidéia 

Caixa Postal 6151 

20022 / Rio de Janeiro / RJ 

□ Envieme um catálogo 
de programas Microidéia. 


Nome 
End. _ 
Bairro 
Tel.: _ 
Micro 


L 


T 


J 






























APLICAÇÕES DO MICRO 


Construção Civil e Informática 

# 



Ana Lúcia de Alcântara 


Foram os inúmeros cálculos necessários 
na elaboração de um projeto de constru¬ 
ção civil que levaram um arquiteto a bus¬ 
car na informática, métodos mais eficien¬ 
tes e rápidos que eliminassem uma boa 
parte do trabalho estafante da fase de pla¬ 
nificação inicial de uma obra. Cláudio Piz- 
zani, arquiteto, optou pelo TK-2000 inves¬ 
tindo aproximadamente Cr$ 17 milhões e 
vem desenvolvendo vários aplicativos de 
construção civil que estão sendo utiliza¬ 
dos como um importante instrumento de 
precisão na apresentação de um projeto 
de obra para seus clientes. 

Um dos fatores que levaram Pizzani a 
procurar os microcomputadores foi a con¬ 
corrência, gerada pela crise econômica, na 
construção civil. 0 tempo, segundo ele, 
tornou-se uma poderosa ferramenta na 
conquista de novas obras e o computador 
ajudou muito, pois fornece informações rá¬ 
pidas, e sem riscos de erros. 

0 arquiteto entrou em contato com a 
tecnologia há dois anos com um CP-200. 
Inicialmente como um hobby e posterior¬ 
mente, superado o conhecimento com o 
pequeno micro, Cláudio Pizzani passou a 
aplicações profissionais escolhendo o 
TK-2000 ao invés do Apple devido princi¬ 
palmente ao seu porte delicado (design), 
a característica de possuir fonte externa 
e o teclado “gostoso e macio". 

Usando três microcomputadores - um 
de 64K bytes e dois de 128K bytes, dois 
drives e gravadores de fita cassete, o ar¬ 
quiteto tem uma boa base de softwares 
para uso em seu dia-a-dia, com quatro pro¬ 
gramas, desenvolvidos por ele e sua equi¬ 
pe. Cálculo de traço de concreto, Alvena¬ 
ria e dois software de Zoneamento são al¬ 
guns dos programas já prontos. Além des¬ 
tes, existem ainda seis projetos que estão 
em fase de testes. Entre estes destaca-se 
o de "detalhamento de vigas em tridimen- 
são", onde o computador fornece por 
exemplo, a quantidade de ferro negativo 
necessária para se alcançar o ponto ideal 
de uma viga. Há também em desenvolvi¬ 
mento programas como Pilares, Lajes, Fun 


dações, entre outros. 

Cálculos do concreto à alvenaria 

Fornecer todas as medidas necessárias 
na confecção de uma "receita" de concre¬ 
to, a ser usada numa obra, são algumas 
das funções desempenhadas por um dos 
programas feitos por Cláudio Pizzani no 
TK-2000. Cálculo do traço de concreto 
(quantificação de areia, água, cimento, que 
fornece o grau de rigidez necessária na 
confecção de blocos de concreto) é um 
dos primeiros programas aplicativos de 
Pizzani desenvolvidos para uso nos cálcu¬ 
los de engenharia. "Este software é bas¬ 
tante útil em obras de responsabilidade por 
demandarem uma maior quantidade de 
cálculos e envolverem materiais de alto ris¬ 
co como vigas de grande pêso", explicou 
o arquiteto. 

O "Traço de Concreto" fornece ao seu 
usuário, entre outras informações, o con¬ 
sumo médio por metro quadrado na obra 
ou a quantidade de material, por exemplo, 
cimento por carga (por quilo ou centíme¬ 
tro quadrado). Dentro deste programa 
Cláudio Pizzani montou um mecanismo 
próprio que possibilita ao construtor a vi¬ 
sualização de quanto de material irá sobrar 
ou faltar: através da medida de caixa - a 
fôrma do bolo da massa de concreto - 
pode-se calcular o número "x" de caixas 
por saco de cimento, por quantidades de 
dias necessários para se conseguir tal re¬ 
sistência de compressão, entre outros 
dados. 

O segundo software é o que possibilita 


ao engenheiro obter resultados com ante¬ 
cedência, a respeito de tipos de alvenaria 
ou materiais para construção de paredes, 
como tijolos, cerâmicas, blocos de concre¬ 
to, etc. 

Conforme afirmou o arquiteto, este pro¬ 
grama fecha o ciclo da parte de cálculos 
de engenharia desenvolvidos por ele. 

Entre as diversas características deste 
programa, Pizzani destacou o que ilustra 
a quantidade de material necessário na 
construção por exemplo, de uma parede. 
"O programa fornece não apenas o grau 
de resistência do material, por centímetro 
quadrado,como características de até que 
ponto determinado material é ou não im¬ 
permeável à água e ou quanto tempo de¬ 
mandará para construção de 1000 m 2 de 
alvenaria, em horas, dias e meses, consi¬ 
derando o uso da mão-de-obra de um 
homem. 

O software foi ampliado para calcular 
também quanto irá gastar de areia, cimen¬ 
to e outros materiais, em termos de cus¬ 
tos (o que é mais caro ou mais barato) pos¬ 
sibilitando ao usuário escolher até mesmo 
o traço (receita) de argamassa. 

O orgulho do arquiteto 

O mais recente projeto de software do 
arquiteto-construtor foi a transferência dos 
dados das leis de Zoneamento para o 
TK-2000. Para ele este programa é moti¬ 
vo de orgulho pois veio facilitar em muito, 
o seu trabalho de pesquisa inicial, antes 
da elaboração de um projeto. No pequeno 
micro, Pizzani condensou as 16 zonas com 
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todas as categorias de uso. Trabalhando 
20 dias consecutivos, ele conseguiu estru¬ 
turar o programa para que este lhe desse 
todas as informações necessárias na exe¬ 
cução de uma planta: tipo de uso permiti¬ 
do dentro de determinada zona, se está su- 
Jjeita ou não a um controle especial; carac¬ 
terísticas de recuo da construção, qual a 
projeção da obra no terreno; coeficiente de 
aproveitamento, entre outras informações. 

As dificuldades vencidas 

Até há bem pouco tempo o arquiteto vi¬ 
nha trabalhando no TK-2000 usando ape¬ 
nas o Basic. Porém, à medida que ele pas¬ 
sou a usá-lo como instrumento de apoio 
em seu trabalho houve a necessidade de 
extrapolar esta linguagem, passando pa¬ 
ra o Assembly. Neste ponto, Cláudio en¬ 
controu os primeiros problemas e fustra- 
ções. Segundo ele a Linguagem de Máqui¬ 
na do 2000 ainda está por ser explorada pe¬ 
la pouca informação que há sobre sua me¬ 
mória interna. 

"Uma das dificuldades que eu encontrei 
foi com relação aos endereçamentos. E pa¬ 
ra mim é muito importante conhecer como 
mexer na ROM e nestes endereçamen- 
mentos, pois só assim posso partir para 
aplicações sérias na minha área. Atual¬ 


mente estão aparecendo informações, 
mas na maioria não se voltam para o lei¬ 
go. O importante para nós é saber suas ca¬ 
racterísticas, dissecá-las, não apenas o 
que fazem" - ilustrou o construtor. 

Muitas dessas dificuldades, segundo in¬ 
formou, já foram vencidas.A maioria po¬ 


rém, através do esforço próprio. 

Porém Pizzani demonstra esperança 
principalmente com as iniciativas que vêm 
surgindo com respeito ao Assembly do 
TK-2000. Uma destas, conforme citou, é 
a seção de Curso de Assembly da Micro- 
hobby e o livro A ROM do TK-2000. 


HOBBYSHOP 


VEJA SE SUA CIDADE TEM 0 QUE VOCÊ PRECISA 


SAO PAULO 


MICRO 


Service 


Inclusão de 24 novas funções (Read, Data, etc.), 
Slow, High Speed, Alta Resolução, Porta de 1/0, etc. 
para micro de tecnologia SINCLAIR ZX81. 
Manutenção de microcomputadores SINCLAIR (TK 
82,83,85, etc.) eTRS. 

Wilson de Assis — Tel.: 203-7967 


ENE Comércio de Computadores Ltda. 
■Hü TK85 x TK2000? 

Só na ENG você adquiri o seu TK2000 nas me¬ 
lhores condições e ainda dá o seu velho TK83, 
TK85 ou CP200 como parte de pagamento. 
TK2000 é na ENG. Showroom — Tel. 813-7570. 
Av. dos Tajurás, 406 — CEP: 05670. 



cipplG cursos 

CURSOS DIRIGIDOS DE 
MICROCOMPUTADORES 


BASIC I e II e Applesoft 
• ASSEMBLER 6502 

• EDITOR DE TEXTO E PLANILHA ELETRÔNICA 


NOVAS TURMAS (c/ 12 alunos) 

INÍCIO IMEDIATO 


Reservas pelos Telefones: 853-9457 — 853-2408 Rua Suzano, 78 — Jardim Paulista — S3o Paulo 


QUAL A INTERFACE QUE ESTÁ FALTANDO 
NO SEU MICRO? 

É AQUELA QUE LHE DEVOLVERA O PRAZER DE FICAR EM FRENTE DO SEU 
MONITOR POR TEMPO ILIMITADO. 

MICROTELA possibilita que você continue com seu TV, pois possue a mesma tela de 
poliester utilizada nos monitores de última geração, filtrando e eliminando os reflexos, ao 
mesmo tempo que aumenta a resolução da imagem. 

Adicionalmente proporciona o mesmo efeito repousante dos monitores de fósforo colo¬ 
rido, utilizando acrílico nas tonalidades verde e ambar. 

Informações com MASTER STING LTDA. 

Caixa Postal 18708 — São Paulo — SP 


SINCLAIR X APPLE 

SINCLAIR — temos jogos animados, tridimensionais, com simulação de alta re¬ 
solução para micros não adaptados, sintetizador de voz por soft, jogos com som 
para micros com gerador, lindos jogos em alta resolução para micros com adap¬ 
tação e vários aplicativos. 

APPLE — temos os mais recentes e melhores jogos e aplicativos do mercado 
mundial, tais como: Conan, Sumer Games, Karateka, Masquerade, (085, Cas¬ 
telo Wolfensteir II, Super Visicalc, PFS Koala e outros tridimensionais. 
Escreva-nos sem nenhum compromisso dizendo-nos qual é o seu micro e rece¬ 
ba uma lista com todos os programas disponíveis, ou telefone para: 
TRANINSOFT - A/C WAGNER F. TRANIN - Caixa postal 911 - 12200 São 
José dos Campos — SP Tel. (0123) 21-6753 (após 19hs). Os preços são os mais 
baixos do mercado, comprove. 


BAHIA 


Sua empresa poderia estar aqui. 

Anuncie no HOBBYSHOP e todos os Lei¬ 
tores da região conhecerão sua empresa. 
Anúncio econônico e de retorno garantido. 


ISRAEL TEIXEIRA 























Criando um 
índice alfabético 


Cesar De Afonseca e Silva Neto 
e Wilson José Tucci 


Este artigo tem por objetivo apresentar 
à você um método bastante eficaz no tra¬ 
tamento de arquivos que possuam um 
grande número de informações. 0 progra¬ 
ma foi desenvolvido a fim de manter uma 
"Super Agenda Telefônica", contendo os 
seguintes arquivos: 


NOME 

CEP 

SOBRENOME 

TELEFONE 

CHAVE DE PROCURA ANIVERSÁRIO 

ENDEREÇO 

ESTADO CIVIL 

BAIRRO 

PROFISSÃO 

CIDADE 

TELCOMERCIAL 

ESTADO 



As rotinas contidas neste programa po¬ 
derão ser utilizadas no desenvolvimento de 
seus futuros sistemas. Baseando-se nele, 
você poderá criar, com grande facilidade, 
um sistema que controle as fichas dos 
clientes de uma loja ou o arquivo de livros 
de uma biblioteca, por exemplo. Tudo de¬ 
penderá de sua habilidade e criatividade. 

Convém lembrar que este programa é 
totalmente compatível com os computa¬ 
dores da linha Apple. 

Introdução 

A indexação alfabética é um método 
bastante rápido e eficiente, que torna-se 
necessário sempre que um sistema reali¬ 
za consultas e deleções de registros de 
modo aleatório. 

Este método agiliza incrivelmente a pro¬ 
cura de registros em um arquivo. Imagine 
um arquivo organizado aleatoriamente que 
contenha dados sobre os clientes de um 
banco, por exemplo. Imagine agora que o 
cliente José Alberto de Oliveira deseje sa¬ 
ber seu saldo imediatamente. Bem, esta 
operação levaria um tempo absurdo, caso 
o arquivo não estivesse indexado por al¬ 
gum campo. Neste caso, teríamos que rea¬ 
lizar uma pesquisa seqüêncial a cada re¬ 
gistro do arquivo, a fim de encontrarmos 
o tal José Antonio de Oliveira. Se ele esti¬ 
vesse no registro de número 10.000, por 
exemplo, esta simples consulta poderia 


tomar-lhe todo o horário de almoço. 

Felizmente existem métodos que tornam 
o tempo de espera desprezível. Um deles 
é o "índice alfabético". 

Convém lembrar que tais métodos exi¬ 
gem um trabalho maior na parte de pro¬ 
gramação, que será plenamente recom¬ 
pensado no momento da utilização do 
programa. 

Sendo assim, o sistema será desenvol¬ 
vido em três etapas: 

- Definição das funções mais gerais (in¬ 
clusão, alteração, deleção e consulta. 

- Definição das sub-rotinas vitais do 
sistema. 

- Definição das funções de pesquisa por 
determinados campos (estado civil, profis¬ 
são, cidade, CEP, bairro, etc.) e apresenta¬ 
ção de aniversariantes do mês ou de um 
determinado intervalo. 

O método 

Este método consiste em manter um ar¬ 
quivo seqüêncial chamado ÍNDICE, con¬ 
tendo as chaves (identificadoras) dos re¬ 
gistros e a respectiva localização de cada 
um deles no arquivo principal, ordenados 
alfabeticamente. Por exemplo: 


Arquivo índice 

Arquivo principal 

3 (total) 

RI: José Alberto de 
Oliveira,CHAVE3,... 

CHAVE1 

3 

CHAVE2 

5 

CHAVE3 

1 

R2: 

R3: ...,CHAVE1,... 

R4: 

R5: ...,CHAVE2,... 


O sistema deverá estar apto a manter o 
índice sempre ordenado corretamente. To¬ 
da vez que se realizar uma nova inserção, 
a chave e o número do registro inseridos 
deverão ser adicionados ao índice na po¬ 
sição adequada. 

Este nível de organização já seria sufi¬ 
ciente caso o sistema só permitisse inclu¬ 
sões e consultas. Porém há ocasiões em 
que um determinado registro precisa ser 
deletado. Neste caso, o operador fornece¬ 


ria uma chave, a partir desta o sistema lo¬ 
calizaria o registro no arquivo principal e 
reorganizaria o índice, excluindo a chave 
e o seu apontador. 

Porém só isto não basta, pois os regis¬ 
tros deletados, apesar de não interessarem 
mais ao sistema, continuam ocupando es¬ 
paço físico no arquivo. Desta maneira, che¬ 
garia o dia em que o arquivo ficaria lotado 
de"buracos" inutilizáveis. 

A fim de resolver tal problema devemos 
manter um outro arquivo chamado LI¬ 
VRES, que conterá o número de registros 
que não estão sendo utilizados no arqui¬ 
vo principal, seguido dos seus respectivos 
números. No exemplo dado anteriormen¬ 
te, o arquivo LIVRES teria a seguinte 
forma: 


ARQUIVO 

2 

-► total 

2 

-> livre 

4 

-> livre 

Sendo assim, antes de cada inserção, o 
sistema deverá verificar se existe algum re¬ 
gistro desocupado. Caso exista, a inserção 
deverá ser feita neste registro. Caso con¬ 
trário, no final do arquivo. 

A seguir, você terá a listagem da primei¬ 
ra parte do programa. As sub-rotinas utili¬ 
zadas pelo sistema e as funções comple- 

mentares 

serão fornecidas e explicadas 

detalhadamente em nossos próximos 

artigos. 


Até lá! 

SUB-ROTINAS 

Início 

Função 

15100 

Ler arquivo índice. 

15200 

Gravar arquivo índice. 

15300 

Ler arquivo de registros 
livres. 

15400 

Gravar arquivo de registros 
livres. 

15500 

Ler registros RX de ARQ$. 

15600 

Gravar registro RX de 
ARQ$. 

15700 

Busca binária. 
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15800 Coletor de linhas. 

15900 Formar a tela de dados. 

16000 Mensagem de erro. 

16100 Entrada da chave. 

VARIÁVEIS UTILIZADAS 

Arquivo Agenda Dados. TXT 

TR% tamanho do registo. 

NC% número de campos. 
L(NC%) tamanho do campo. 
NC$(NC%) nomes dos campos. 
DC$(I\IC%) dados dos campos. 
Arquivo índice 

NP% número total de pessoas. 

CH$(NP%) chaves contidas no índice. 
REG%(NP%) apontadores das chaves. 

Arquivo de Livres 

NL% número total de livres. 

RL%(NL%) números dos registros livres. 

Uso Geral do Sistema 

LNG tamanho do campo a ser 
"coletado". 

V,H posição do campo a ser "coletado". 
A$ tecla pressionada no coletor. 

P$ "string" retornada pelo coletor. 


100 REM ***MENU*** 

ÍÍÜ NI = "SUPER AGENDA" 

120 Hl(l) = "ADICIONAR DA 
DOS" 

130 HK2) = "ALTERAR DADO 
S" 

140 Hl(3> = "ELIMINAR DAD 
OS" 

150 MK4) = "CONSULTAR DA 
DOS" 

160 MK5) = "PESQUISAS GE 
RAIS" 

170 MK6) = "ANIVERSARIAN 
TES" 

180 MK7) = "GRAVAR INDIC 
E" 

190 Mí(8) = "FINALIZAR" 
200 Dl = CHRí (13) + CH 
RI (4) 

210 ARQÍ = "AGENDA/DADOS. 
TXT" 

220 FOR I = 1 TO 30:ULi 
= ULI + CHR1 (95): NEXT 
230 VI = 9:HI = 16 
240 m = 162:NCX = 13 
250 DIM NCI(NC/£),DC(NCX) 
,L(NCX) 

260 DIM CHI(200),REGZ(2Q 
0),RL%(100) 

270 FOR I = 1 T0 NC%: RE 


AD NCI(I) f L(I): NEXT 


HAL : PRINT TAB( 39) 

280 GOSUB 15100 


500 GOTO 390 

290 PTI = *. 


510 DESVIAREXECUCAO 

// 

■ 


520 ON OP GOTO 1000,2000 

300 H = Í2:V = 9:L = 8:DI 


,3000,4000,5000,6000,7000, 

ST = 1 


8000 

310 HOME 


1000 REM «ADICIONAR* 

320 INVERSE : VTA8 í: HT 


1010 FL = 0: REM FLAG DE 

AB i: PRINT SPC( 40): VTA 


LIVRES 

B 23: HTAB 1: PRINT SPC( 


1020 MSI = "JA EXISTE" 

40) 


1030 GOSUB 15900 

330 FOR I = 2 TO 22: VTA 


1040 V = VI 

B I: HTAB 1: PRINT SPC( 1 


1050 FOR C = i TO NC 

> ; : HTAB 40: PRINT SPCÍ 1 


1060 LNG = L(C):H = Hl: G 

): NEXT : NORMAL 


OSUB 15800 

340 INVERSE : HTAB 8: FO 


1070 IF QUIT THEN 300 

R I = 1 TO LEN (Nl): VTAB 


1080 IF PI = "" THEN 106 

5: PRINT MIDI <NI,I,i) ; : 


0 

POKE 36, PEEK (36) + 1 + 


1090 IF C = 3 THEN CHI = 

3 * (I = 5): NEXT : NORMAL 


Pl: GOSUB 15700: IF NOT 

ERRO THEN GOSUB 16000: GO 

350 FOR I = 1 TO L: VTAB 


TO 1060 

V + I * DIST: HTAB H: PRI 


1100 IF C = 10 AND ( MID 

NT I; SPC< 2);MÍ(I): NEXT 


I (PI,3,1) < ) "/" OR RI 

GHTÍ (PI,2) ) "12" OR LEF 

360 0P = i:0V = 1 


TI (PI,2) ) "31" OR LEN ( 

370 VTAB V + 0P * DIST: 


PI) < ) 5) THEN 1060 

HTAB H - i: PRINT CHRI (9 


1105 IF C = ii AND (PI < 

i);0P;"tt"; SPC( i);MI(0P) 


> "S" AND PI ( ) "C" AN 

380 VTAB 20: HTAB 12: IN 


D Pl < ) "V" AND Pl < ) 

VERSE : PRINT MI(0P) ; : N0R 


"D") THEN 1060 

MAL : PRINT TAB< 39) 


1110 DCÍ(C) = PI 

390 VTAB V + OP * DIST: 


1120 V = V + 1 

HTAB H: GET Pl 


1130 NEXT 

400 P = ASC (Pl) - 


1140 REM PREPARAR GRAVA 

410 IF P = 13 THEN 510 


CAO 

420 IF P = 21 THEN OV = 


1150 GOSUB 15300: REM L 

0P:0P = OP + 1 


ER LIVRES 

430 IF P = 8 THEN 0V = 0 


1160 IF NLX THEN FL = i: 

P:0P = 0P - 1 


GOTO 1200 

440 IF P > = 49 AND P < 


1170 REM LER URX EM RO 

= 49 + L THEN 0V = 0P:0P 


1180 RX = 0: GOSUB 15500 

= P - 48 


1190 LIVRE = UR% + 1:UR% 

450 IF 0P ( 1 THEN 0P = 


= URZ + í: GOTO 1230 

L 


1200 LIVRE = RLZ(NLZ) 

460 IF 0P > L THEN 0P = 


n oi yíMi = n?ui v = w 

XL.JLU IU.II \ I1L.1 / ~ tl 

1 


LX - 1 

470 VTAB V + 0V * DIST: 


1220 GOSUB 15400 

HTAB H - i: PRINT SPCÍ 1) 


1230 REM INSERIR NO IND 

;0Vj SPC< 2>;MK0V> 


ICE 

480 VTAB V + 0P * DIST: 


1240 CHI = DCK3) 

HTAB H - i: PRINT CHRÍ (9 


1250 GOSUB 15700 

1);0P;"lt"; SPCÍ i);MI(0P) 


1260 IF ERRO = 1 THEN 12 

490 VTAB 20: HTAB 12: IN 


80 

VERSE : PRINT MI(0P) ; : NOR 


1270 IF ERRO = 2 THEN L -- 
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M = Fl: GOTO Í290 


ERRO THEN GOSUB 16000: GO 

1280 FOR I = NPZ TO LH 


TO 2200 

+ 1 STEP - KCHKIKREGZ 


2240 IF C = 10 AND ( MID 

(I + 1) = REGZ(I): NEXT 


1 (PI,3,1) < ) "/" OR RI 

1290 NP7. = NPZ + 1 


GHT1 (PI,2) ) "12" OR LEF 

1300 CHK LH + 1) = CHI: 


Ti (Pl,2) ) "31" OR LEN ( 

REGX( LH + 1) = LIVRE 


Pt) < ) 5) THEN 2200 

1310 RX = LIVRE: GOSUB 15 


2245 IF C = 11 AND (Pt < 

600 


> "S" AND Pt < > "C" AN 

1320 IF NOT FL THEN RX 


D Pt < ) "V" AND Pt < ) 

= 0: GOSUB 15600 


"D") THEN 1060 

1800 GOTO 300 


2250 DCi(C) = Pt 

2000 REM «ALTERAR* 


2260 GOTO 2090 

2010 GOSUB 16100 


2270 REM GRAVAR 0 REG. 

2020 GOSUB 15500 


2280 IF DCi(3) = CVt THE 

2030 GOSUB 15900 


N 2380 

2040 MSÍ = "JA EXISTE" 


2290 CHI = CVt: GOSUB 157 

2050 VTAB VI: FOR I = 1 


00 

TO NCZ: HTAB Hl: PRINT DCÍ 


2300 FOR I = LM TO NPZ 

(I): NEXT 


- 1: CHI (I) = CHKI + i):R 

2060 RAUX = RX 


EGX(I) = REGXd + 1): NEXT 

2070 CVÍ = CHI 


:NPZ = NPZ - 1 

2080 V = VI:C = 1 


2310 CHI = DCK3) 

2090 VTAB 23: HTAB i: IN 


2320 GOSUB 15700 

VERSE : PRINT "<-/-> POSIC 


2330 IF ERRO = 1 THEN 23 

IONAR/(RET> C0NFIRMA/<0> F 


50 

IM": NORMAL 


2340 IF ERRO = 2 THEN L 

2100 VTAB V: HTAB Hl 


H = Fl: GOTO 2360 

2110 GET Aí:A = ASC (Al 


2350 FOR I = NPZ TO LH 

) 


+ 1 STEP - 1:CHt(I + 1) 

2120 IF A = 21 AND C < N 


= CHK I) :REGZ( I + 1) = REG 

CZ THEN C = C + i:V = V + 


Z(I) = NEXT 

1 


2360 NPZ = NPZ + 1 

2130 IF A = 8 AND C > 1 


2370 CHK LH + 1) = CHK 

THEN C = C - í:V = V - 1 


REGZÍ LM + 1) = RAUX 

2140 IF A = 27 THEN 300 


2380 REH GRAVAR 

2150 IF A = 13 THEN 2180 


2390 RX = RAUX: GOSUB 156 

00 

2160 IF A = 48 THEN 2270 


2400 GOTO 2000 

3000 REH «DELETAR* 

2170 GOTO 2100 


3010 GOSUB 15300: REM L 

2180 REH ENTRAR A CORRE 


ER LIVRES 

CAO 


3020 GOSUB 16100 

2190 VTAB 23: CALL - 87 


3030 CVt = CHKRAUX = RX 

5: VTAB 23: HTAB í: INVERS 


3040 FOR I = 1 TO NCZ:DC 

E : PRINT "ENTRE COH OS DA 


t(I) = LEFTÍ (PTi,L(I)): 

DOS E PRESSIONE (RETURN)": 


NEXT 

NORMAL 


3050 GOSUB 15600 

2200 LNG = L(C):H = Hl: G 


3060 REH RETIRAR DO IND 

OSUB 15800 


ICE 

2210 IF QUIT THEN 300 


3070 CHI = CVt: GOSUB 157 

2220 IF Pi = "" THEN 220 


00 

0 


3080 FOR I = LH TO NP.Z 

2230 IF C = 3 THEN CHI = 


- KCHKI) = CHKI + 1):R 

Pi: GOSUB 15700: IF NOT 


EGZ(I) = REGXd + 1): NEXT 


3090 NP% = NP - 1 

3100 REM COLOCAR EH LIO 

RES 

3Ü0 NLX = NLZ + 1 
3120 RLZ(NLZ) = RAUX 
3130 GOSUB 15400 
3140 GOTO 3020 
4000 REH «CONSULTAR* 

4010 GOSUB 16100: REM P 
EGAR A CHAVE 
4020 GOSUB 15500 
4030 GOSUB Í5900' REH F 
ORMAR A TELA 
4040 VTAB VI 
4050 FOR I = 1 TO NCZ: H 
TAB Hl: PRINT DCi(I); CHRÍ 
(93); SPC( 40 - PEEK (36 
>): NEXT 

4060 VTAB 23: HTAB i: PR 
INT "PRESSIONE QUALQUER TE 
CLA PARA OUTRA";: GET Rí 
4070 GOTO 4000 
5000 REH PESQUISAS GERA 
IS 

5010 HOME : INVERSE : VT 
AB 12: HTAB 9: PRINT "A SE 
R DESENVOLVIDO": FOR I = 1 
TO 2000: NEXT : GOTO 300 
6000 REH ANIVERSARIANTE 
S 

6010 HOHE : INVERSE : VT 
AB 12: HTAB 9: PRINT "A SE 
R DESENVOLVIDO": FOR I = 1 
TO 2000: NEXT : GOTO 300 
7000 REM GRAVAR ÍNDICE 
7010 HOHE : VTAB 12: HTA 
B 15: PRINT "GRAVANDO..." 
7020 GOSUB 15200 
7030 GOTO 300 
8000 REH FINALIZAR 
8010 HOHE : VTAB 12: HTA 
B 15: PRINT "GRAVANDO..." 
8015 GOSUB 15200 
8020 PRINT : PRINT : INV 
ERSE : PRINT "PROGRAMA FIN 
ALIZANDO": NORMAL 
8030 END 

17000 DATA N0ME,20,S0BR 
ENOME,23,CHAVE,8,ENDEREÇO, 
23,BAIRRO,15,CIDADE,15,EST 
ADO,2,CEP,6,TELEFONE,8,ANI 
VERSARIO,5,ESTADO CIVIL,1, 
PROFISSÃO,15,TEL.COHERCIAL 
.8 
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PROGRAMAS 


4-f K l §M 


Biorritmo 


Veja como está o seu astral em relação ao seu estado físico, mental e emocional. 


Com o auxílio do seu TK 90X, você poderá traçar o seu bior¬ 
ritmo e o de seus amigos, obtendo assim os pontos críticos do 
seu estado físico, mental e emocional. 

Esses dados vão demonstrar, através de um gráfico graduado 
de 1 a 30, representando os dias do mês, as curvas dos três ci¬ 
clos citados acima (figuras 1 e 2). 

Em primeiro lugar, o programa exigirá que você entre com sua 
data de nascimento e uma data corrente qualquer, e em segui¬ 
da, o seu biorritmo é exibido na tela do micro. Ao final do traba¬ 
lho o computador perguntará se você deseja traçar outro 
biorritmo. 


O seu estado físico variará durante um ciclo de 23 dias e es¬ 
tará relacionado com a sua paciência, resistência, e agressividade. 

O ciclo emocional tem a duração de 28 dias e está intimamente 
ligado com o seu sistema nervoso/englobando: humor, otimis¬ 
mo e pessimismo. 

Seu ciclo mental será de 33 dias e terá como parâmetro a in¬ 
teligência de Einstein e os instintos do macaco. 

O programa é bastante simples e fácil de se digitar, qualquer 
um poderá operá-lo. Portanto, prepare-se pois todos irão querer 
fazê-lo. 



1 RESTORE 

2 PRINT RT 0 : 0 ; Biü-R 

i tino 

1G IMPUT “Entre cora a Data da 
Na s c i fu e n t o 88 , s: D i a 88 ; a ; " Me s “ ; b; 
85 Rno 88 ; c 

20 IMRUT !8 En t r e c o ffi urna Data 88 
. : 88 Mas 88 ; d : 88 nno 88 ; a 

25 CL5 

30 L5T t= INT £ £ (a-C3 *355.253 * £ 
£ d - b 3 *30 3b 3 -a 3 
300 FOR f=0 TO 255 
310 RLÜT r:10 

315 IF f =INT £ f/53 *5 THEN FOR ü 
=10 TO 20: RLOT f.ü: NEXT U 
320 NEXT r 

330 RR INT RT 21.0; 88 1 10 

20 30 


340 RR INT RT © . 0 ; INK 3; !i F i £ i CO 
88 ; INK 2; 88 Man tal 88 ; INK 4; 81 Em 
n a L 88 

FOR f =1 TO 3 
RERD u 

LET l=2 *RI* £ t- £ INT £ t/U 3 *U 3 


0 C i 0 

900 
905 
910 
3 /ü 

920 
1000 
, 1 

1010 
ND U 

-23 + 
1020 
1030 
1040 
1050 
a 4: 


Lbi K =2 *H1* £ 33-ü 3 * * 03 
FOR a = L TO K + l+£2 *R13 STEP 

RLOT INK £ £ 1 RND ü =23 3 + £2 R 
=23 3 +£4 RND ü =333 3 ; £ a -13* £35 
y 3 .90+ 5IN a*50 
NEXT a 
NEXT f 

DRTR 23,23,33 
IN P ü I 8 8 ü : a s a. I a O o n t i n u a r :■* 

IF a $£13 = 88 £ s ' ! THEN GOTO 1 
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As câmaras do mágico 


Aventure-se neste jogo onde tudo pode acontecer 


Você é um aprendiz de mágico e deseja subir de posto. Ele não 
se recusa, desde que você passe pela prova das câmaras. 

Nesta prova, você será lançado num labirinto (figura 1) de cin¬ 
co níveis e deve, além de sair são e salvo, coletar os seguintes 
objetos: 



uma espada; 
um escudo; 
um machado; 
um anel; 
uma lanterna; 
um chicote; 
uma moeda; 
um papiro; 
uma adaga; 
uma lança; 
uma chave; 

Você deve ter cuidado com a névoa pois,do contrário, poderá 
perder tudo o que conseguiu com os vampiros, já que eles po¬ 
derão lhe ferir com as armadilhas (caindo a níveis inferiores) e 
com as salas que escurecem. Nelas você poderá perder algum 
objeto. 

Três objetos são importantes: a chave, a lanterna e a cruz. 
A chave permitirá a você abrir as portas secretas. Mas obser¬ 
ve que ela vai enferrujando à medida que você as abre e, após 
cinco tentativas, ela se dissolve. A lanterna permite que você dis¬ 
sipe a névoa, evitando a perda de algum objeto e a cruz lhe pos- 
sibita enfrentar o vampiro. 

Você poderá consultar o mapa de nível, onde você está, por 
um número limitado de vezes (figura 2). 



1 

9 d 
9 d 
h 9 
U d 
L 

te 

o 

CO 
d 9 

i r 

9 5 
C 9 

ve 

0 9 


Uü 


do 


i l h 9 
9 

dü 

0 

r n 9 
te 

o 


ce l 


labirinto. 


Os comandos 

As teclas 5, 6, 7 e 8 permitem o seu deslocamento em uma 
das quatro direções indicadas pelas setas. A tecla zero possibi¬ 
litará a abertura de uma porta secreta em qualquer uma das pa¬ 
redes que não tenham passagem, desde que você tenha uma 
chave e ela não tenha se enferrujado completamente (você po¬ 
de usá-la cinco vezes).Caso você não disponha de uma chave, 
cairá no nível inferior. Caso esteja no nível um, outro labirinto 
será construído. 

Para ver o mapa, digite a tecla M e espere o mapa ser cons¬ 
truído. Evite chamar o mapa onde foi encontrado algum objeto, 
pois dessa forma não será possível ver a sua localização, após 
o mapa ter sido desenhado. Cuidado, pois a sala que escurece 
não é mostrada no mapa. 

Se desejar ver o que está carregando, digite a tecla I. Lembre- 
se de que você só poderá passar no teste se conseguir todos 
os objetos. 


Digitando o programa 

Antes de começar a digitá-lo é conveniente lembrar-se de al¬ 
gumas coisas. Este programa faz uso muito intenso de caracte¬ 
res gráficos especiais. 

Para obtê-lo, você deverá digitar primeiro as linhas de 9000 
a 9060, que contêm os dados necessários para a obtenção des¬ 
tes caracteres. Após a digitação, rode este trecho do programa. 
Digite agora UDG 2. Você conseguirá algo semelhante ao que 
está mostrado na figura 3. 

Se não foi apresentado nada semelhante, provavelmente de¬ 
ve haver erro na digitação das linhas DATA. Para obter os carac¬ 
teres no programa é só digitar CAPS SHIFT 9, quando aparece- 
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br- 

■ + 

+- 

JJ 

TF 

1-1— 



—fh 

1_LJ 







db i 


rá o cursor G e a letra correspondente. Para voltar à digitação 
normal, pressione novamente as teclas CAPS SHIFT + 9. 

Uma vez obtidos os caracteres corretos, digite agora o restante 
do programa. 



h B Ü D E F G HIJ K L M N 0 P Q R 5 T Ü 

JfT U 

H=K 

Figura 3 - Conjunto de caracteres. 


Listagem do Programa. 

10 CLEAR : RR ND : GOSUB 9000: 
LET V i d 5 =5 : DIM p $ (704) : DIM j (5 
5: DIM K(5): DIM i$(28.9): LET n 
= 1: LET X =5: LET >4=5: DIM X(5,ll 
,11): DIM >4(5,11,113: D IM p £5,11- 
,11): DIM t (5,11.113 

20 FOR 1=1 TO 5: LET k£L)=RB5 
(8- L 3 : BORDER l: FOR ííi = 1 TO 11: 
FOR n =1 TO 11: LET X íL . Fft .n3 =INT 

(RND*2) : LET >4 £ L . m . n 3 = INt £RND*£ 
3: LET p ( L ,18 . n 3 =INT ÍRND+3) : LET 
t £ t , rí! , n 3 = £ R N D > . S 3 * INT £ R N D *17 + 1 

3 

21 LET X£1,5.53=1: LET Xíl.6.5 
) =1: LET x £ l .5.53 =1: LET >4 £1 .5.5 
) =1: LET >4(1,5,63 =1: LET >4 (1,6.5 
) =1: LET t £ l .5,53 =14*INT (2*RND) 

: NEXT n: NEXT M: NEXT l 

22 PAPER 7: CLS 
25 FOR 1=1 TO 5 

30 LET Xs =0 : LET ys=5: LET k >4 = 
1: LET kX =0: LET a$ = "6": BRIGHT 

40 BORDER p (l , X , >4 ) : PAPER p (l , 
X,y): CLS : INK 9: PRINT «0;RT 1 

., 1; "Ni ve t " ; i 

50 DRflU 255,0: DRRU 0,175: DRR 
U -255,0: DRflU >0,-175: DRflU 30.2 
4: PLOT 255,0: DRflU -30,24: PLOT 
255,175: DRflU -30,-24: PLOT 0,1 
75: DRflU 30,-2 4: FOR n=3 TO 18: 
PRINT AT n ,4: 

IESEfi£_: 

55 li- ta, X , >4 3 > 1 THEN PRINT OU 
tR i;fiT 10,15;CHRí £145 + t ( l ,X , y3 

_60 IF y £ l , X,y 3 =1 THEN PLOT SB, 
152: DRflU -16,16: DRflU 112,0: DR 
RU -15,-l b: FOR n =1 TO 3: PRINT 
HT T.Ü/SESB": NEXT n 

70 IF ytL,X,y+13=1 THEN PLOT 8 
8,23: DRflU -16,-16: DRflU 112,0: 
DRflU -15,15: FOR n =17 T O 20: PRI 
NT flT n , 11; T gMB I 1 ; NEXT n 
80 IF X ( l , X , y 3 =1 THEN PLOT 31, 
8b: DRflU -24,-15: DRflU 0,96: DRfl 
U 24,-l b: r QR n=7 TO 14: PRINT fl 
i n , NEXT n 


30 IF X £ (. , X+1 ,y 3 =1 THEN PLOT 2 
24,56: DRflU 24,-16: DRflU 0,96: D 
RflU -24,-15 : FO R n = 7 TC* 14: PRIN 
T flT n,27: "SK": NEXT n 

95 LbT >4 S = >4 S - k >4 : LtT X £ = X £ - k X 
PRINT flT 1 0 —>4£ -k>4 ,15-x£ -kx"f; 

flT 10 — >4 £ , 15 — X £ ; OU ER l;‘“í'": SOUN 
D .01,-5: IF *4£ < >0 OR x£ < >0 THEN 
GOTO 95 

96 IF (t « L , X , >4 3 >0 AND l >13 OR 

t ( l , X , >4 3 > 1 THEN GOSUB 500: IF t£ 
L , X , >4 3 = 1 THEN LET 1 = 1-1: GOTO 30 

97 IF t £1 ,X , >4) =16 THEN GOSUB 8 

00 

93 IF t £ l , X ,‘4 3 =17 THEN GOSUB 9 
00: IF Vida =0 THEN PRINT flT 18,0 
80flT 0 , 0 ; " Uo >: e í o i ati n g i d o m u 
i tas veze£ . Agora es t a ' rno r t o ! 

”: GOTO 260 
100 LET a $=INKEY$ 

110 LET kX = £ a $ ="3" AND X £l ,X +1, 
y 3- =13 - £aS="5" AND X £ l ,X .>4) =13 : L 
ET ky = la$ = "6" AND y (t ,x ,y + 13 =13 - 
(a $ = " 7 " AND >4 £ L , x , >4 3 =13 
120 IF a$="0" THEN GOTO 300 
130 IF a$ = "ffl" THEN GOTO 400. 

135 IF a $ = " i " THEN GOTO 70,0 
140 IF £kx=0 AND K*4 =03 THEN GOT 
O 100 

150 LbT yS =0: LET XS=0 
160 LbT X S =X S + K X : LET >4 S =>4 S + k >4 : 
PR INT AT IO+>4 s - k >4 .15+x s - k x : "3 
flT 10+Ms,15+xs; OUER 1;"$” 

170 SOU ND .01,-5: IF 8-flBS ys>0 
AND 13-flBS X S > O THEN GOTO 160 
180 LET X=X+kX: LET y=y+ky: IF 
X >0 AND X <11 AND >4 >0 AND y <11 TH 
EN GOTO 40 

190 PRINT 80; FLASH 1:flT 0,0;"U 
o c e ac h o u u m a d a s s a i d a s . D i g i t e 
u rn a tec l a p a r a o p r o x i m o n i v e L. " 

; : PflUSE >0: LET X =5: LET >4=5: NE 
XT I 

200 PAPER 7: BORDER 7: INK 0: C 

LS : PRINT AT 1.10;"BRAUO ! UO 

ce conseguiu sair do quinto nive 
l sao e salvo." 

210 LET C =1: FOR n=2 TO 14: IF 
i $ £ n 3 < > t $ £ n 3 THEN PR INT flT 4,0; “ 
M a s v o c e n a o o b t e v e t o d o s o s 
i t e n s r e q u e r i d o s p e l o rn a g i c o . U o - 
c e per m an e c e r a ' c omo aprendiz."' 

' " fl t e ' a p r o x i is a v e z " : LbT c =0 
220 NEXT n 

230 IF C =1 THEN PRINT flT 4,0; "U 
oc e ob t e ve t od os os itens n e c es s 
a r i o s . 0 Ki agi c o ., a g r a d e c i d o , t o r -n 
ou-o seu socio." 

240 PRINT 80;RT 0,0;"UOC€ gosta 
ria de ver os itens que voce a 
chou? (S/N)" 

245 LET a $ = INKEYí 
250 IF a $ = "S" THEN CLS : PRINT 
flT 1,5;"Uo ce es t a v a carredando:- 
": FOR n=2 TO ‘14: PRINT flT n,10; 
CHR$ (145+n);" - ";i$(n): NEXT n 

255 IF aí <>"s" AND a $ O"n" THEN 
GOTO 245 

260 PRINT 0U ER 1; "0Ut ra VeZ ? £S 
/N 3 " 

278 LET a $ = INKEY$: IF a$ = "S" TH 
EN GOTO 10 
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PROGRflMflS 


230 Ir a $ O“n" THEN GOTO 270 
290 ST0P 

300 IF i $ (14) <: >t$ (14.) THEN PR IN 
T ^ 80; RT 0,0 ; " Ne nhum a c h a v e ? -fi p o 
r ta c o n tinua — r a fechada»"; í“Uo c 

e se desintegrou" RND 1=1): LET 
t í L , X , y ) =1 : PRUSE 0 : GOTO « L < > 1) 
*86+10 

310 PRINT «O;RT 0,0; FLASH 1;" 
fibra a porta secreta... Use as 
t e c l a s d e m o v i m e n t o (5 - 3) 

315 IF chave=0 THEN PRINT 80;RT 
0,0; "infelizmente s u.a ch ave que 


b r o u 

-se 

n a p o r t a . 



320 

LET 

LET i4 (14) = 
•3 4 = INKEY 4 


GOTO 68 

330 

IF 

3 4 = "5" THEN 

LET 

x £ i, x , y) 

= 1 

34.0 

IF 

S $ = í! 3 ! ’ THEN 

LET 

X ( 1 .. X +1 .. 

*4) =1 

350 

IF 

a $ = 8 8 7 8 8 THEN 

LET 

y (l, x , y .i 

= 1 

368 

IF 

a $ = :8 5 8 ’ THEN 

LET 

y (1, x , y + 

1) =1 

370 

IF 

8 $<> 8 8 5 8 8 HND 

a $ < 

"6" HND 

a 5 < > ‘ 

i —7 j * 

HND a $ < > ,8 S ,: 

THEN 

GOTO 32 


0 

380 PRINT 80;RT o,0;"fl chave en 
f e ru .ia con f o rme a po r -ta e ■' a be r 
ta . LET cha 

Ve = C h a Ve-1: PRUSE 0: GOTO 30 
400 IF R£U =0 THEN PRINT 80;RT 

0 , 0 ; " . » . uo ce tem que sair sem ma 

P3SÍ !GOTO 100 
405 LET K £ L) =K (l) -1: PAPER O: 8 
ORDER O: INK 7: CL3 : DRRU 153,0 
: DRRU 0,163: DRRU -163,0: DRRU 
0,-168: FOR n=l TO 15: PRINT RT 
n ,21; INK 4;CHR4 í145 +n);"-";14 < 
nj : NEXT n: PRINT RT 13,24;"ft-Uü 
ce í";RT 0,0; PAPER 6; INK 0;"Uoc 
e tem "; K £l) ;" mapa"; (“s" AND Ki 
u <>!);: PRINT " -nivei : "; t 

410 PRINT INK 7; RT 2*y , 2*X -1; '"k 

430 FOR m=0 TO 10: PLOT 16*1»+4, 
4: DRRU 0,160: PLOT 4,16*1»+4: DR 
RU 160,0 : NEXT ííí 
440 FOR n =1 TO 11: FOR ffi=l TO 1 
1: IF m<ll THEN PLOT 16 *fft , 180-16 
*n : DRRU OUER >4 ( l , m , n ) ; -3,0 
445 IF t£l,n.ffl)>0 AND m <11 AND 
n < i 1 AND £ t £ i , n , m) < > 1 OR i •: > 1) T 
HEN PRINT INK 7; RT 2 * 1 » , 2*n -1; CHR 
4 £ 145 +1 £l ,n ,m) 5 PLOT 0,0 

450 IF n <11 THEN PLOT 16*m-12,l 
76-16*n: DRRU OUER X ( L , ffl , n) ;0,-8 
460 NEXT m: NEXT n 
470 INK 9: FOR ííí =4 TO 164: OUtR 
1: PLOT 4,ffi: DRRU 150,0 
430 IF INKEY4 = "" THEN NEXT m: G 
OTO 470 

490 OUER 0: PRUSE 0: GOTO 40 
50-0 FOR n =9 TO 11: PRINT fii n,l 
4;“ ": NEXT n 

530 FOR n=15 TO 1 STEP -1: SOUN 
D .01,n: NEXT n 

540 LET t = t ( t , X , ! 4 ) : PRINT RT 10 
,15;CHR 4 £ 145 +1) ;80;RT O,0; "Uo C e 

en cont r ou : ";14 £t); " I 

F t >1 AND i$ £ t) =t 4 £t)' AND t <16 T 
HEN PRINT 80;"Mas aue brou-se em 


suas maos!!" 

545 IF t =14 THEN LET Chave=5 
550 IF t =1 THEN FOR n=7 TO 13: 
PRINT RT n.12;“ NEXT n: 

PLOT 96,119: DRRU 55,0: DRRU 0, 
-55: DRRU -55,0: DRRU 0,55: DRRU 
54, -54: DRRU -54,0: DRRU 54,54 

: FOR n =8 TO 12: PRINT BR IGHT 0; 
RT n , 13; INK p (L -1, x , y) ; ' WÊÊÊÊÊè 
NEXT n: PRINT 88;"Uoce caiu no 
nivei inferior ": PRUSE 0 

560 IF t =15 THEN PRINT 80;RT 1, 
0 ; £"Mas,dis si p ou-s e pela l a n t e r n 
a i " AND i 4 £6) =t 4 (6) ) : IF i $ (6) < > 
t 4 £ 6) THEN PRINT 80;RT 1,0;"Uo ce 
p erdeu t ud o o que e ncont r o u " : P 
RINT RT 0,0; INK 1; PAPER 5; OUE 
R 1; FLASH 1;P 4: DIM i$ £20,9) 

590 LET i4 £t) = £ t 4 £t) AND t >1 AN 
D t(l,X,>4) <15): RETURN 
700 BORDER 7: PAPER 7: INK 0: C 
LS : PRINT RT l,5;"Uoce esta car 
regando: ": FOR n=2 TO 14: PRINT 
RT n,10;CHR4 £145+n);" - ";i$ £ 

n 5 

705 NEXT n 

710 PAUSE 0: GOTO 30 
800 PRINT RT 0,0; PAPER 7; INK 
0; OUER 1; FLASH i.;p$ 

810 LET t =0: FOR n=i TO 14: IF 
i $ ín > =t 4 £n ) THEN LET t =n 
820 NEXT n 

830 IF i4 £6) =t 4 £6) THEN LET t=6 
840 IF t >1 AND RND-Í.3 THEN PR IN 
T 80;RT 1,0;"escura. Uoce perdeu 
: "; i4 (t) : LET i4 £ t) =" ”: PAUSE 

0: RETURN 

850 PRINT 80 ;RT 1, 0 ;"escura. Po r 
s or t e nad a p e r did o.": PRUSE 0: 
RETURN 

900 PRINT 80;RT 1,0;"Use a Iguma 
tecla para ataca-lo.": PRUSE 0: 
PRINT 80; RT 1,0;;; 

910 FOR m=1 TO 7: PRINT RT 10,1 
5; "jf" ; RT 10,15; £"v" AND m/2 = INT 
£m/2)3: BORDER íft: FOR n=20 TO 1 
STEP -1: SOUND .005,n+m: NEXT n: 
NEXT íft 

920 IF i4£10)=t4(10) THEN PRINI 
RT 10,15;" ";80;RT o,0;"Uoce ma 
tou o vampiro com a cruz.": LET 
t £ l ,X ,y 3 =0: RETURN 
930 LtT Vid a =Vid a -1: IH V ida >0 
THEN PRINT 80;RT 0 , 0 ;"Uoce esta" 
ferido. Uo cê te m ";vida; " vida" 
; (“ s " AND v i d a < > i) ; " . "; " Es c a p e e 
nquando ainda pode": RETURN 
940 RETURN 

9000 RESTORE 9080: FOR n=USR "a" 
TO USR "S"+7: RERD 3: POKE n,a: 
NEXT n 

9818 DATA 153,182,182,153,153,10 
2,102,153 

9815 DATA 48,176.152,116,20,112, 
136,134 • 255 • 12‘d • 18Q , 1S9 • 189,129 , 
255,8 

9828 DfiTfi 1,2,4,3,203,160.288,12 
3,32,43,248,184,48,4,2,1,127,119 
,119,65,119,54,54,23,56,56,68,13 
0.130,130,63,56 

9838 DATA 16,56,124,254,63,68,68 
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As rotinas 




,124,8,128.12 

7,121,121,127 

,128,1 

28,14,49,55,6 

5:148,48,112 , 

95,8,5 

© , 12 5,255,189 

, 55,50,8 


9848 DPTP'247 

24:12 5 :12 5,2 4 

, a! 4 , a: 4 

,24,8,125,132 

. ± 32,6 6,6 5,33 

;, 125 ., 3 

,5,i©,84,48,1 

12,232,54 


9858 DP.TP, 3,7 

; 5 : 8,15,3 2,5 4 

, 123,8 

8,54,168,191, 

155,58,8,8,8, 

146,54 


, ü , 198,8,84 •• 145,8 

9060 DPT P 0,0,8: 8,8,0,0,8,79,254 

,124,126,245,252,192,128 

9898 DIM t$ (28,9) : RÉSTORE 9188: 

FOR n =1 Tü 17: R E P D a$: LizT t $ í 
n 3 = a $ : NEXT n 

9188 D PT h "ar íh a d i l ha" , "a a- p ada " ., 1 ' 
fii a c h a d o ! ’," e s c u d o " , " a n è l " ., " l a n t e r 
na"c o p o " ."chi c o te"," m o ada" , " c r 
uz " , "pap I ro " 

9i=! 08 D RT P; " a d a 9 s'', 1 ' t a n c a : ' ., *' c h a v a 
" , "na v o a " , "s a lã" , " v a r»p i r o " 

9218 RPRER 7: BÜRDER 7: CLS 
9228 fRINT : PRINT !, PQUâ fde . Ü C 
o ÍH p u t a d o r a s t a ' c o n s t r u i n d o u r» n 
ovo la bi rin to „ " 


923 8 PP U 5 E 18 8 
9388 RETURN 
9488 STÜF 

999 9 5P U E "ca fis a f a £ 11 : G O T D 9 9 9 9 


10 - inicializa todas as variáveis; 

20-21: constrói o labirinto; 

25: inicializa o loop dos níveis; 

30-90: desenha a sala onde você está; 

95: move-o até o centro da sala; 

96: verifica se você cruzou com um objeto ou uma armadilha; 
97: verifica se você cruzou uma sala que escurece; 

98: verifica se você encontrou com um vampiro; 

100-140: loop de controle. Verifica se você digitou alguma te¬ 
cla, respondendo de acordo; 

150-170: move-o para fora da sala; 

180-190: verifica se você saiu de um nível ou do labirinto; 
200-290: fim do jogo; 

300-380:verifica se você está tentando abrir uma porta secre¬ 
ta. Responde de acordo com a situação da chave; 
400-490: desenha o mapa; 

500-590: mostra-lhe que tipo de objeto foi encontrado; 
700-710: mostra os itens que estão sendo carregados; 
800-850: sala que escurece; 

900-940: vampiro; 

9000-9060: sub-rotina de criação de caracteres; 
9090-9200: sub-rotina de nomeação de objetos e 
acontecimentos; 

9210-9300: coloca uma mensagem de espera e reinicia o 
programa; 

9999: grava o programa. 


Aprendendo a digitar no TK 90X 

Álvaro A.L.Domingues 


Embora o TK 90X seja um computador extremamente simples de ser utilizado, o usuário que não está 
habituado a trabalhar no seu teclado pode ter algumas dúvidas ao digitar programas publicados em livros 
ou revistas. Este artigo, tomando por base um programa simples, indica passo a passo como digitá-lo. 

Digitando no TK 90X. 

Mesmo após a leitura atenta do manual ou do uso da fita de 
instruções (Arco-lris) que acompanham o micro, o usuário do 
TK 90X pode ter algumas dificuldades com o teclado, principal¬ 
mente, ao tentar passar os programas de uma revista para o seu 
micro. 

Isto porque algumas teclas apresentam até quatro funções si¬ 
multaneamente e o limite de quatro caracteres numa mesma te¬ 
cla. Além disso, possui cinco cursores, cada um com uma fun¬ 
ção determinada. Contudo, com um pouco de exercício, essa di¬ 
ficuldade será vencida facilmente. 

As instruções, comandos e funções do TK 90X, tal como no 
TK 85, não podem ser digitadas letra por letra, sob pena do mi¬ 
cro acusar um erro de sintaxe ou ocorrer um erro de lógica, o 
que é muito mais difícil de ser localizado e corrigido. 

Como regra geral, mesmo que você desconheça completamen¬ 
te as funções que aparecem num programa, "nunca" digite na¬ 
da letra por letra. Isso evitará dissabores futuros. 

Funções brancas, vermelhas e azuis. 

Se você já viu um TK 85 e comparou com um TK 90X deve 
ter ficado admirado com o número de funções e cores que sur¬ 


gem no teclado. 

Outra coisa que deve tê-lo preocupado é a presença de duas 
teclas SHIFT (CAPS SHIFT e SIMBOL SHIFT). Você também de¬ 
ve ter notado que existem algumas funções em vermelho, logo 
abaixo da tecla e alguns caracteres e funções na mesma cor, den¬ 
tro da tecla (figura 1). Como acessar uma ou outra? 



MICROHOBBY 51 




















































































































Tudo depende do cursor que está sendo usado. O TK 90X pos¬ 
sui cinco cursores: K,L,C,G e E. 

O cursor K obtém todas as instruções, comandos e funções 
em branco, internas da tecla. Através delas você pode obter fun¬ 
ções DRAW, etc. Uma vez digitada uma destas funções, o cur¬ 
sor muda para L,permitindo digitar-se todos os caracteres das 
teclas mais as funções em vermelho, internas das teclas, quan¬ 
do for usada simultaneamente a tecla SIMBOL + SHIFT. As letras 
obtidas são minúsculas. Para obter as letras maiúsculas use CAPS 
SHIFT simultaneamente. Se você digitar a tecla 2 juntamente com 
a tecla CAPS SHIFT, o cursor muda para C e todas as letras se¬ 
rão maiúculas. 

CAPS SHIFT + 1 coloca o computador no modo de edição, 
liberando a linha onde estiver o cursor para correção. CAPS 
SHIFT+4 permite obter-se vídeo inverso, ou seja, inverte-se a cor 
do fundo com a cor do caractere. Para retornar ao vídeo verda¬ 
deiro, use CAPS SHIFT+3. 

O cursor C possibilita usar-se os caracteres gráficos do TK 90X. 
Todos os caracteres normais, no modo gráfico, são apresenta¬ 
dos em vídeo inverso. Pode-se também usar os caracteres gráfi¬ 
cos especiais, que aparecem nas teclas de 1 a 8, quando pres¬ 
sionadas juntamente com CAPS SHIFT. Além disso, podem-se 
usar os caracteres obtidos com UDG 0 (caracteres em portu¬ 
guês), UDG 1 (caractere em espanhol) e UDG 2 (caracteres grá¬ 
ficos desenvolvidos pelo usuário). 

Por último, o cursor E. Esse cursor é obtido pressionando-se 
as teclas CAPS SHIFT e SIMBOL SHIFT simultaneamente. Obtém- 
se, desta forma, as funções em azul imediatamente acima das 
teclas, bem como cores em mensagem nas teclas de 0 a 7. Com 
o cursor em E pode-se também obter as funções e os caracte¬ 
res gráficos em vermelho sob a tecla, usando-se para isso SIM- 
BOL SHIFT pressionado simultaneamente à tecla. 

O programa 

Para ilustrarmos o que foi falado acima escolhemos um pro¬ 
grama - exemplo (aplicativo) que mostra como se calculam os 
juros bancários. Sem considerarmos a correção monetária, os 
tipos de taxas de juros que tomamos contato com mais freqüên- 
cia são os juros simples e compostos. Outras modalidades de 
investimentos são combinações ou variações destes dois tipos. 

A fórmula para o lucro obtido com juros simples é: 


lucro = capital x tempo x (taxa de juros em porcentagem/100) 


No caso dos juros compostos, o capital para o mês seguinte 
é acrescido pelos juros. Assim, temos: 
capital 1 =capital + (taxa de juros em porcentagem/100)xcapital. 

capital 2 = capitali + (taxa de juros em porcentagem/100)xcapital-| 
capita^ =capital 2 +(taxa de juros em porcentagem/100)xcapital 2 
e assim por diante. 

Podemos, mediante manipulação das fórmulas, chegar à fór¬ 
mula final: 


capital n =capitalx(taxa de juros em porcentagem/100 + 1) n 


sendo n o número de períodos. 




As duas fórmulas apresentadas estão nas linhas 75 e 80 do 
programa. 

Para obtermos o valor do lucro na segunda fórmula, devemos 
subtrair o capital no final de n períodos pelo capital inicial. Faze¬ 
mos isso na linha 100, quando formos tabelar a função. 

As linhas de 70 a 100 formam um loop que calcula e registra 
numa tabela, na tela do TK 90X os valores de dez períodos, tan¬ 
to os lucros obtidos com juros simples quanto os alcançados com 
juros compostos. A cada valor apresentado, um som aleatório 
será gerado no alto-falante. 

As linhas de 500 a 600 formam uma sub-rotina de formata¬ 
ção do vídeo, dispondo os dados em tabelas. 

Digitando o programa 

Mostraremos as funções que são obtidas de modo especial 
no TK 90X e como obtê-las, indicando em que linha aparecem. 

INK - Esta função escolhe a cor com que serão escritos os ca¬ 
racteres e os desenhos de um trecho do programa. Ela aparece 
nas linhas 40, 100, 500, 510, 525 e 600, e pode ser obtida atra¬ 
vés do cursor E (SIMBOL SHIFT+ CAPS SHIFT) e digitando-se 
a tecla X e SIMBOL SHIFT ao mesmo tempo. A sintaxe correta 
é INK e um número, sendo este um valor entre 0 e 7. 
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BORDER aparece nas linhas 500 e 600 e pode ser obtida com 
o cursor K e a tecla B. Sua sintaxe é semelhante à de INK e sua 
função é conseguir a cor da margem da tela. 

PAPER aparece nas linhas 500 e 600 com a mesma sintaxe 
de INK e BORDER e serve para indicar qual a cor do fundo (o 
"papel") da tela. Ela é obtida da mesma forma que INK, só que 
a tecla a ser digitada é a C. 

O símbolo de porcentagem que aparece na linha 60 pode ser 
obtido-com as teclas SIMBOL SHIFT e 5 pressionadas ao mes¬ 
mo tempo. 

A seta da linha 80 indica a operação de potenciação e é obti¬ 
da pressionando-se a tecla H simultaneamente com SIMBOL 
SHIFT. 

Para se conseguir os caracteres inversos das 20, 40 e 510 use 
o cursor G ou vídeo inverso CAPS SHIFT+4. Para voltar ao mo¬ 
do normal, digite SHIFT+9 no caso do cursor G, ou CAPS 
SHIFT+3 no caso do vídeo inverso. 

O traço horizontal das linhas 525 e 535 é alcançado pela digi¬ 
tação simultânea das teclas SIMBOL SHIFT+0. 

A barra vertical que aparece na linha 540 é adquirida com o 
cursor E (SIMBOL + CAPS SHIFT) e as teclas S + SIMBOL SHIFT. 

Conclusão 

A dificuldade de digitação no TK 90X é apenas aparente, vis¬ 
to que, se o usuário tomar uns poucos cuidados e observar bem 
o teclado, a digitação de qualquer comando ou caractere é bas¬ 
tante simples. 



O Jornal do VIDEOTEXTO é dirigido a profissionais 
liberais, engenheiros, empresários e estudantes. Fique 
sabendo das novidades, tendências e experiências do vi¬ 
deotexto, recebendo em casa 12 edições do único veí¬ 
culo com informações atualizadas, isentas e analíticas 
sobre o setor. 

Envie seu pedido à 

Dialógica Comunicação e Sistemas Ltda. 

Rua Fradique Coutinho, 50 
CEP 05416 - São Paulo - SP. 

Fones 64-0331 e 64-7131 


Nome: . 

Profissão:. 

Endereço: .CEP . 

Cidade:. Estado:. Fone: 


Desejo receber 12 edições do Jornal do 
VIDEOTEXTO. Estou anexando cheque nominal à 

Dialógica Comunicação e Sistemas Ltda. no valor 
de Cr* 85.000. 

Quem assina tem prioridade da informação. 

Seja assinante do JV. 
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Usando o Assembler 6502 

Carlos Alberto C. Abreu e Francisco S. Lima 

Edições Microkit 


Este é outro lançamento da Editora ca¬ 
rioca. Seguindo o objetivo de sua linha edi¬ 
torial, a Microkit apresenta um livro que vai 
chamar a atenção de muitos usuários, 
principalmente os que possuem o 
TK-2000. Muitos destes usuários têm nos 
telefonado, reclamando de informações 
que não existem no mercado acerca do mi¬ 
croprocessador 6502 e que lhes impossi¬ 
bilitam aprofundar-se na utilização de seus 
equipamentos. Para estes frustrados usuá¬ 
rios e leitores da Microhobby surge agora 



esta novidade da Microkit. 

"Usando o Assembler 6502" traz mais 
de 100 páginas falando dos diversos as¬ 
pectos que envolvem o conhecimento de 
um microprocessador, desde os sistemas 
de numeração (binária, hexadecimal e de¬ 
cimal),o mapa da ROM, o programa resi¬ 
dente Monitor até o próprio microproces¬ 
sador e todas as abordagens feitas durante 
o livro, o autor apresenta no final diversos 
exemplos usando as instruções do 6502. 
A.L.A. 


Assembly 6502 
Linguagem de 
Máquina Apple 

e TK-2000 

Bernhard Wolfgang Schon 

De repente, as editoras resolveram co¬ 
locar no mercado vários livros para a ROM 
do Apple e TK-2000. Isto se deve, talvez, 
à tendência em lançamentos mostrada na 
Feira de Informática deste ano. Afinal, as 
empresas demonstraram, enfim, a conso¬ 
lidação de equipamentos de linha mais 
profissional com o Apple e IBM PC. 

Este livro, que fez parte de uma coleção 


TK 90X - Programas para 
jovens programadores 


Linda Hurley 

Editora McGraw-Hill 

Fornecer um guia com as instruções bá¬ 
sicas de programação para o TK 90X é o 
objetivo da McGraw-Hill com este 
lançamento. 

O livro apresenta inúmeros programas 
- a maioria compatível com o Spectrum de 
16 K - representados de maneira didática 
seguidos de ilustrações que permitem, ao 
iniciante em programação, a familiarização 


com as diversas funções, instruções e co¬ 
mandos do TK 90X. 

O teclado no TK 90X é um dos pontos 
mais comentados no livro. Como digitar as 
intruções em vermelho, azul e os principais 
comandos; como age o sistema de cores 
no 90, como começar?! Figuras, sons e 
outros recursos do Spectrum são alguns 
dos assuntos também tratados no peque¬ 
no livro da McGraw Hill. A.L.A. 


CARLOS ALBERTO C. ABREU 
FRANCISCO S. LIMA 
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destinada ao Apple, segue a tendência que 
se observa no momento: livros que falam 
mais profissionalmente do TK-2000 e do 
Apple. 

A Linguagem de Máquina, para o usuá¬ 
rio mais evoluído,fornece maiores recursos 
de utilização dos micros. E o Assembly 
6502 lhes dá,de forma bastante séria, as 
principais informações acerca das suas 
instruções, sobre os seus registradores, 
conteúdos e endereços. 

A obra vale pela intenção em atender às 
necessidades do mercado, assim como pe¬ 
lo autor, um fanático amante do 
Apple/A.L.A. 


programas para 
jovens programadores 


LINDA HURLEY 
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LIVROS LIVROS LIVROS LIVROS LIVROS LIVROS LIVROS LIVROS LIVROS LIVROS LIVROS LIVROS 


Programas comerciais da 


linha Apple 
empresa - 

Edições Microkit 

Duas edições dedicadas a aplicações 
comerciais no Apple são as novidades da 
Microkit, uma empresa carioca dedicada 
a editar coleções de programas para os 
mais diversos microcomputadores. 

A obra, dividida em dois volumes, foi es¬ 
crita por um experiente profissional - Car¬ 
los Alberto Abreu. Ele, além de diretor da 
Microkit, é mestre em programação e es¬ 
pecialista no desenvolvimento de softwa¬ 
re para a linha Apple. 

Visando atingir o interesse das empre¬ 
sas que estão adquirindo o Apple, o autor 
desenvolveu diversos programas comer¬ 
ciais como Mala-direta, Controle de esto¬ 
que, Contas a pagar e receber, seguidos 
de suas respectivas listagens. 


para pequena 
Volumes 1 e 2 


No primeiro volume, o autor dá uma 
orientação à empresa de como criar o seu 
próprio sistema de informações e como 
utilizar-se, com total plenitude, da base de 
micros instaladas e apresenta, além dos 
programas comerciais, conselhos úteis co¬ 
mo "decisões para o investimento em 
informática". 

No outro volume, Alberto C. Abreu com¬ 
plementa a primeira parte, fornecendo à 
empresa usuária da tecnologia de micro in¬ 
formática diversas considerações que po¬ 
dem ser usadas por seu profissional: infor- 



CARLOS ALBERTO C. ABREU 

programas 
comerciais 
da linha apple 

para pequena empresa 


mações sobre procedimentos para abertu¬ 
ra de arquivos em disco, além de inúme¬ 
ros programas como emissão de fatu¬ 
ras/duplicatas; vendas à varejo, entre ou¬ 
tros. A.L.A. 




curso debasic 

PROGRAMA AVANÇADO 


Coríos Alberto C. de Abreu 
Francisco S, timo 


Mel R s1 XB 


Curso de Basic 
(Programa Avançado) 
Edições Microkit 


Wordstar 
(guia do usuário) 
Editora McGraw-Hill 


Outros lançamentos: 

a 


Explorando o TK 90X 
Editora Aleph 


77 Programas para 
linha Apple 
Edições Microkit 
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POR DENTRO DO APPLE 


Formatação 

M 


Christiano Nasser e Wilson José Tucci 


Este artigo visa apresentar algumas re¬ 
gras de formatação de saída de relatórios. 
Como sabemos, o Apple não permite o uso 
do comando PRINT TAB(X) para números 
superiores a 40, o que dificulta imensa¬ 
mente a apresentação final de relatórios. 

Para resolver este problema existe um 
comando SPC(X), que define quantos es¬ 
paços em branco devem ser deixados en¬ 
tre um campo e outro. O “X" da sua sin¬ 
taxe significa o número de espaços em 
branco. 

Como todos sabem, em relatórios os 
campos não possuem tamanhos fixos, 
pois em geral são impressos nomes, nú¬ 
meros, quantias, etc. Como a linha do pro¬ 
grama, que define a impressão de linhas 
no relatório costuma ser única, se você fi¬ 
xar o valor de SPC(X), as linhas sairão to¬ 
das desarrumadas. 

Vamos ver como resolver estes 
problemas: 

Considere o relatório da figura 1. Como 
se pode observar todos os campos pos¬ 
suem vários tamanhos variáveis. 
Consideramos: 

1 - impressão do campo 1. 

2 - impressão do campo 2 em diante. 

No primeiro caso, onde não se tem cam¬ 
pos anteriores impressos, as possibilida¬ 
des são estas: 

a - alinhados à direita (números, quan¬ 
tias, etc.) 

b - alinhados à esquerda. 

No segundo caso as possibilidades au¬ 
mentam, pois já temos que considerar o 
campo anterior, ou seja: 

a - anterior à direita - atual à direita. 

- atual à esquerda. 

b - anterior à esquerda - atual à direita. 

- atual à es¬ 
querda. 

Vamos estudar cada caso em particular: 

1 - Impressão do primeiro campo: 

Alinhado à esquerda, este é o caso mais 
simples, pois basta definir quantos espa¬ 
ços devem ser deixados a partir da colu¬ 
na 1 (figura 2). 

Alinhado à direita, toma-se o valor da úl¬ 
tima posição à direita a ser impressa, (fi¬ 
gura 3). 


$2 - Impressão do segundo campo em 
diante 

Antes de seguirmos adiante, vamos de¬ 
finir o seguinte: 

distl - distância entre a primeira posi¬ 
ção do campo anterior e a primeira do 
campo a ser impresso. 

dist2 - distância entre a última posição 
do campo anterior e a primeira posição do 
campo a ser impresso. 

dist3 - distância entre a primeira posi¬ 
ção do campo anterior e a última posição 
do campo a ser impresso. 

dist4 - distância entre a última posição 
do campo anterior e a última posição do 
campo a ser impresso. 

Vejamos os casos: 

2a - Anterior alinhado à esquerda pas¬ 
sando o alinhamento à direita. Consideran¬ 
do a$, b$ como os campos a serem ali¬ 
nhados, através da fórmula existente na fi¬ 
gura 4, vamos notar que pelas definições 
que acabamos de ver chegaremos ao re¬ 
sultado de dist 1 = 2 (Figura 4) 

2b - Anterior alinhado à direita, passan¬ 


do o alinhamento à esquerda. Este caso 
também é simples, pois basta definir quan¬ 
tos espaços devem separá-los diretamen¬ 
te, Na figura 5 temos um exemplo onde 
dist 2 = 4. 

2c - Anterior à esquerda, passando o ali¬ 
nhamento à direita. Este caso é um pouco 
mais complicado. Para fazermos isto, sub¬ 
traímos a distância entre a primeira posição 
do campo anterior e a posição do campo a 
ser impresso pelos comprimentos das 
strings. No caso dist 3 = 31 (figura 6). 

2d - Anterior alinhado à direita, passan¬ 
do o alinhamento à direita. Basta subtrair 
a última posição do campo anterior da úl¬ 
tima posição a ser impressa e subtrair do 
comprimento da string dist 4 = 24 (figu¬ 
ra 7). 

Com isto ficam cobertas todas as pos¬ 
sibilidades de saídas de relatórios. Embo¬ 
ra os exemplos aqui citados abranjam dois 
campos apenas, a técnica serve para um 
número ilimitado de campos. 

Bibliografia : A PPL E Reference Guide pa¬ 
ge 94, 95; Micro S N 32 pg. 12,13. 
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DIDATICA 


A Franca de 
1813 a 1848 

Álvaro A.L.Domingues 


A História é uma disciplina que também causa transtornos para 
estudantes de primeiro e segundo graus. Por isso, nesta edição, 
deixamos de lado as Ciências Exatas e nos dedicamos a um as¬ 
sunto de Ciências Humanas: a França no Período de 1813 a 1848. 

Ciente dessas dores de cabeça, você deve estar imaginando 
um meio de aprender História de uma forma mais rápida. A mel- 
Ihor maneira de aprender História é vivenciando os fatos na época 
em que aconteceram. Impossível? Talvez não, se existisse uma 
máquina do tempo. 

Suponha por um momento que você possa violar as leis da 
Física e fazer o tempo andar para trás, com auxílio de uma má¬ 
quina especial. Sua preocupação mais imediata é o período de 
1813 a 1848, já que a sua próxima prova é sobre a História da 
França neste período. 

Corajosamente você entra na máquina mas, antes de se aven¬ 
turar a pressionar qualquer botão, dê uma lida em seus livros so¬ 
bre o período anterior, para pelo menos saber o que estava acon¬ 
tecendo no momento de sua chegada, (veja Box:A Revolução 
Francesa e Napoleão). 

Derrota de Napoleão 

Ao chegar a 1813 o cheiro de pólvora ainda está no ar: Napo¬ 
leão acaba de ser derrotado, na Batalha das Nações e é coloca¬ 
do como soberano da Ilha de Elba (uma ilha longínqua, próxima 
à Córsega) de onde conforme supunham seus inimigos não po¬ 
deria mais incomodar o império. 

Em 1814, Luiz XVIII, irmão do rei Luiz XVI - o rei deposto pela 
Revolução Francesa, foi colocado no trono, restaurando-se a di¬ 
nastia dos Bourbons. Porém, mais uma vez, Napoleão volta a in¬ 
comodar. Fugindo da Ilha de Elba voltou à França em 1815, acla¬ 
mado como um herói pela população. O rei Luiz XVIII fugiu para 
a Bélgica e Napoleão governaria por um curto período, exatamen¬ 
te cem dias. Neste período, tentou fazer uma ofensiva fulminan¬ 
te contra o restante da Europa, especialmente à Inglaterra, mas 
acabou sendo derrotado - desta vez definitivamente - em Wa- 
terloo, em 18 de junho de 1815. 

A derrota de Napoleão terminou com os sonhos imperialistas 
da França, bem como com a expansão dos ideais defendidos pela 
Revolução Francesa (1789): liberdade, igualdade e fraternidade. 
O Congresso de Viena, que teve como principais participantes 
a Áustria, a Rússia, a Prússia, a Inglaterra e a França, estabele¬ 
ceu, entre outras coisas, o princípio da legitimidade, restauran¬ 
do as monarquias da Europa à situação anterior à Revolução 
Francesa. 

Luiz XVIII 

O Congresso de Viena restabeleceu a monarquia dos Bourbons 
na França, colocando Luiz XVIII no poder. A Constituição do pe¬ 
ríodo napoleônico foi abandonada e uma nova lei foi elaborada, 
dando o Poder Executivo ao rei e dividindo o Legislativo em duas 
câmaras: a Câmara dos Pares, com membros, nomeados pelo 


rei, vitalícios (cargo que dura por toda a vida) e hereditários (trans¬ 
feridos para membros da mesma família, após a morte do titu¬ 
lar) e a Câmara dos Deputados, eleita pelo voto censitário (pro¬ 
porcional ao número de eleitores). 

Na Câmara dos deputados atuavam os seguintes partidos: os 
Ultra-Realistas, que queriam o retorno ao Absolutismo (plenos 
poderes para o rei); os bonapartistas, que defendiam a volta de 
Napoleão Bonaparte e os Radicais, que defendiam idéias liberais 
e lutavam contra os Bourbons, a dinastia que estava no poder 
e representava o passado absolutista que havia vigorado na 
França. 

Luiz XVIII morreu em 1824, deixando o trono para seu irmão 
Carlos X. 

O retrocesso 

Carlos X era líder da facção Ultra-Realista, que representava 
as idéias mais conservadoras que desejavam a volta ao Absolu¬ 
tismo e ao "status quo" anterior à Revolução Francesa. 

Isso causou descontentamento, aumentando a oposição polí¬ 
tica, principalmente a de inspiração liberal e revolucionária. 

Os liberais conseguiram propagar suas idéias entre a popula¬ 
ção por meio de panfletos, discursos e comícios, que culmina¬ 
ram com a Revolução Liberal de 1830. 

Esta revolução contou com forte apoio da burguesia e culmi¬ 
nou com a derrubada de Carlos X, o principal objetivo da revolu¬ 
ção, e com a coroação de Luiz Felipe de Orleans. A escalada da 
revolução até este resultado ficou conhecida como "As Jorna¬ 
das Gloriosas". 

Luiz Felipe de Orleans fez um reinado liberal, mas atendeu prin¬ 
cipalmente à burquesia - classe que o apoiou - deixando de lado 
as necessidades do operariado nascente. Por esse motivo, Luiz 
Felipe foi cognominado de "o Rei Burguês". 

Mais uma vez houve descontentamento político, gerando con¬ 
dições para uma agitação político-social, que levaram a França 
à outra revolução. 

A Revolução de 1848 

Em fevereiro de 1848, as condições político-sociais acabaram 
provocando a sublevação das massas que derrubaram Luiz Feli¬ 
pe e organizaram em seguida, um governo provisório que conta¬ 
va inclusive com a participação dos socialista, liderados por Luiz 
Blanc. 

Contudo, houve forte oposição da burquesia à presença de so¬ 
cialistas no governo, gerando, também desta vez, instabilidade 
política. 

Manisfestações populares de apoio ao socialismo foram du¬ 
ramente reprimidas, culminando com o "Massacre de Carvag- 
nac", onde as tropas do general Carvagnac - comandante de tro¬ 
pas fiéis à burguesia - mataram milhares de populares adeptos 
do socialismo. 

A tensão era crescente e tornou-se necessária uma figura que 
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reunisse as várias correntes do pensamento político da nação. 

O escolhido foi Luiz Bonaparte, sobrinho do imperador Napo- 
leão Bonaparte, pois seu nome, associado com o do antigo Im¬ 
perador, tinha apelos carismáticos, podendo superar a divisão 
nacional. Assim, no final de 1848, Luiz Bonaparte é eleito presi¬ 
dente da França, inaugurando a Segunda República (a primeira 
República foi instaurada pela Revolução Francesa e morreu com 
a coroação do Napoleão Bonaparte). 

O programa 

Muito bem, agora que você testemunhou todos os fatos, po¬ 
de voltar ao presente. Entretanto, para poder voltar terá que en¬ 
frentar o "guardião do tempo " que só lhe permitirá retornar se 
souber responder dez perguntas sobre o que acabamos de ver. 

Se errar cinco delas, adeus século XX, pois você se tornará 
para sempre prisioneiro do "guardião". 

Este é o tema do nosso programa. Vá corajosamente à França 
do século XIX e enfrente o guardião do tempo! 


10 REM PERDIDO NO TEMPO 
£0 DIM C(10) 

3© DIM G $(10) 

35 LET ERROS=0 
40 LET CERTPS =0 
45 RR ND 

50 LET GS = "fcAutSAHBdAC" 

55 GOSUB 9000 

60 LET P = INT Í104RND+1) 

65 IF C(P)=1 THEN GOTO 60 
70 CLS 
75 PRINT 

30 GOSUB 7950+50*P 
90 PRINT ,,"DIGITE fi SUfi RtSFU 
STfi" 

100 INRUT R$ _ 

110 IF A$=G$(P) THEN GOSUB 
120 IF A$OG$(P3 THEN GOSUB &0Q 

0 

130 IF CERTAS=10 THEN PRINT ,, 

E RETORNOU RO SÉCULO XX.” 

140 IF ERROS >4 THEN PR INT , , "E 
RGORR NUNCR MRIS RETORNARA" _ _ 

150 IF ERROS >4 OR CERTAS = 10 I"HE 
N GOTO 500 
160 GOTO 60 
500 REM FINfiLIZACfiO 
510 FOR 1=1 TO 100 
520 NEXT I 
530 CLS 

540 PR INT " UOCE ACERTOU ".: CERTA 
S;" PERGUNTAS” 

550 PR INT " U0CE ERR0U " .: ERR 0 S; '' 
PERGUNTAS” 

550 STOP 
6000 REM ERROS 
6010 PRINT ,,“ UOCE ERROU" 

6020 LET ERROS=ERR0S+1 
6040 GOTO 6050+504INT (34RND3 
6050 PRINT MAS,PELO MENOS TfcN 
TOU..." 

6060 G OT 0 6 80 0 

6100 PRINT ,,"AZAR SEU...EM BRfcU 
E UOCE FICARA MEU PRISIONEIRO HA 
RA SEMPRE." 

6110 GOTO 6800 

6150 P RINT , ,"TENTE N0UA MENT E,MA 
6 CUIDADO..." 

6300 FOR 1=1 TO 100 
6310 NEXT I 


6820 RETURN 

7000 REM ACERTO 

7010 LET 0 í P 3 =1 

7020 PRINT ,,"UOCE ACERTOU" 

7030 LET CERTAS=CERTAS+i 
7040 GOTO 7050+504INT (34RND) 
7050 PRINT , , "APOSTO QUE FOI CHU 
TE" 

7060 GOTO 7300 

7100 PR INT , "MEUS PARABÉNS . MAS , 
OC.HH WUE UOCE CONSEGUE UOLTRR " 
7110 GOTO 7800 

PRINT ' : "CONTINUE ASSIM E 
Eh BREUE UOCE UOLTARA PARA A SUA 
ÉPOCA” 

7800 FOR 1=1 TO ICO 
7810 NEXT I 
7320 RETURN 

7999 REM PERGUNTAS 

8000 PRINT "AROS A DERROTA DE NA 
F U L E H 0 , Q U A L 0 P E R10 D 0 D E G 0 U E R N 0 

DO REI LUIZ XUIII ?" 

A010 PRINT “A3 1820-1330" 

8020 PRINT “B31815-1824" 

8030 PRINT "031815-1827" 

8040 RETURN 

80b0 PRINT "COMO ESTA UR DIUIDIDO 
U PODER LE-GISLATIUO NO GOUERN 

0 DE_LUIZ XUIII ?" 

8060 PRINT "A)GAMARA DOS PARES/C 
A MARA D 0 S D E P UT RD O S' 1 
8070 PRINT "B3CAMARA DOS PARES/C 
AMARA DOS IMPARES" 

8080 PRINT "C3CRMARR DOS DEPUTAD 
OS/SENADO" 

8090 RETURN 

8100 PRINT "GURIS 0_ _ 

E ATUAUAM NO GÜUERNO DE LU12 

II ?" 

8110 PRINT "A)REALISTAS E REPUBL 
10ANOS" 

8120 PRINT "83 ULTRA-REALISTAS E 
RADICAIS" 

8130 PRINT 1 ' C3 ULTRA-REALISTR5 
ADICAISRNDE BONAPARTISTAS“ 


PARTIDOS QU 

XUI 


R 


814-S 

RETURN 




8150 

PRINT 

:! QUEM GÜUERNOU H 

FR 

PNCP 

PPÜS P; 

MORTE DE 

LUIZ XUIII 

8150 

PRINT 

5 P 3 LUIZ 5ÜNPPPRTE 11 


8170 

PRINT 

"d 3 CARLOS 

X s! 


8180 

PRINT 

"C 3 CARLOS 

IX “ 


8190 

RETURN 




8200 

PRINT 

"0 GUE REPRESENTOU 

P 

IDP 

DE CPR 

-POS X AO 

TRONO ? n 


8210 

PRINT 

"A 3 UOLTA 

AO AESOLUTI 

SMÜ " 





8220 

PRINT 

" B 3 E N F R A G U E CIM E NT 0 

DP 

ÜPÜ 

SICAO LIBERAL" 




8238 PRINT "C3 R E B ESTRO CORRET 
AS " 

3240 RETURN 

8250 PRINT "EM 1830 A FRANCA FOI 
PALCO DE UM IMPORTANTE ACONTECI 
MENTO. QUAL '?" 

3260 P RINT "A 3 A8 J 0R NADA S GL 0R10 
SAS " 

8270 PRINT "B3 A REIMPLANTÁCAO DO 
ABSOLUTISMO" 

3280 PRINT “C3 R MORTE DE LUIZ XU 

III" 

3290 RETURN 
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3300 HHINT "QUEM ASCENDEU AO TRO 
NO DA FkANCA AROS A OUEDA DE CAR 
LOS X ?" 

8310 HHINT “A) LUIZ VUIII" 

3320 PRINT "83 LUIZ FELIPE DE ORL 
EANS " 

3330 HRINl "O NAPOLEAO TERCEIRO" 
834-0 R ET UR N 

33S0 HHINT "POR QUE LUIZ FELIPE 
FOI COGNOMI-NADO O REI BURGUÊS ? 

3360 PRINT "A 5 POR NAO SER DE ORI 
GEM NOBRE" 

8370 HHINT "B3 POR ATENDER APENAS 
s H S U RG UE- SIR, IG N 0R A ND 0 0 O PE 
RARIADO" 

8380 HHINT "OPOR FAZER UM GOUER 
NO LIBERAL" 

8390 RETURN 

84-00 PRINT "0 QUE ACONTECEU EM F 
EUEREIRO DE 1848 •*•" 

3410 HHINT "AJAS MASSAS P0PULARE 

8 DfcRHUBARAM LUIZ FELIPE" 

84 H 0 PRINT "EU 0 SAL, CARUAGNAC M 

ASSACRA MI- LHARES DE SOCIALISTA 
* * 

8430 PRINT ”03 LUIZ BÜNhPhRTE E“ 

E L t IT ü P R E 51D E NT E :! 

8440 RETURN 

8450 PRINT “OURNDO FOI ELEITO LU 
IZ_BÜNhPhRTE ?“ 

8450 PRINT :: h3EM FEUEREIRü DE 18 
4 o 

8478 PRINT ;: B3NÜ FINPiL DE 1S30 !! 
8480 PRINT s: 03 NO FINPiL DE 1848“ 
3490 RETURN 
9000 REM INICIO 
9010 PRIi-rr 

9020 PRINT “ UOOE 5E PTREUE H ME 
Diz8Pi- IPR , :: EU 0 GUPRDIPO DO T 

EMPCn * . “ “UOOE SAIU do SÉCULO XX 
UEM hh-Rh 0 SÉCULO XIX“ 

3030 PRINT , !: EU DEUERIP MPNTE-L 
0 PRISIONEIRO PARA SEMPRE “ , , :! MPB 
_LHE DPREI UMA CHPNCE !! 

9 O 4 0 F0R 1 = 1 TO 10 0 
9050 NEXT I 

9050 CLS 

9080 PRINT !! UOCE DEUERP RESPONDE 
R DizZ QUES- TOES SOBRE A FRPNCP , 

9085 PRINT , «“NO PERÍODO DE 1815 
A 1843“ 

9090 FOR 1=1 TO 100 
9100 NEXT I 
9110 CLS 

3 120 PRINT “SE RESPONDER CORRETA 
MENTE PODER A UOL T9R“ 

9130 PRINT , , “SE NHO: , “ 

9140 FOR 1=1 TO 100 
9150 NEXT I 
9980 RETURN 
9935 SAUE “DID9g“ 

3999 GOTO 3385 


Para o Professor 

Este tipo de programa é um dos mais simples do tipo iterativo 
de perguntas e respostas. É iterativo porque o aluno responde 
perguntas escolhidas ao acaso e se errar deverá, em outro mo¬ 
mento, respondê-las novamente, até acertar. 

As perguntas são escolhidas aleatoriamente entre dez previa¬ 
mente preparadas. Este número poderá ser alterado,desde que 
se altere algumas variáveis do programa. Pode-se também tro¬ 
car as perguntas e o seu gabarito. A estrutura do programa in¬ 
depende do assunto apresentado. Não foram utilizados gráficos 
para permitir a adaptação a qualquer computador. 

Usamos um TK 85, que demonstrou ser excelente para este 
tipo de programa. Ele rodará sem alteração num TK 90X, e com 
quase nenhuma alteração em outros computadores. A diferen¬ 
ça mais pronunciada é a matriz de gabaritos, que nos computa¬ 
dores compatíveis com o TK 85 e 90X é permitido usar-se uma 
variável string não indexada e obter-se um caractere isolado, por 
meio de um índice. Por exemplo: 

LET G$ = “ABC" 

PRINT G$(2) 

Estas duas linhas imediatas exibirão na tela de seu micro a le¬ 
tra B, segundo caractere da string representada pela varível G$. 

Em outros computadores é necessário colocar-se um índice 
e um caractere em cada elemento da matriz ou usar-se as fun¬ 
ções de fatiamento da string (LEN,RIGHT$,MID$ e LEFT$). 

Por exemplo: 

DIM A $(10) FOR 1 = 1 TO 100 INPUT A$(l) NEXT I 

Estas linhas permitem ao usuário colocar o gabarito numa ma¬ 
triz string uni-dimensional. Para manter-se o gabarito fixo, pode- 
se usar as instruções READ/DATA, colocando-se a instrução 
READ no interior do loop. 

Usando variáveis string de “fatiamento": 

LET A$=“ABCD" PRINT MID$(A$,1,2) 

Esta instrução mostrará um caractere a partir da segunda da 
string A$. 

As variáveis e sub-rotinas 

O programa está estruturado de forma modular, podendo ser 
alterado qualquer dos módulos, sem que a estrutura sofra com 
a modificação. Basta levar em conta as variáveis, o número de 
perguntas e a forma de chamar-se as sub-rotinas. 

A estrutura principal está representada pelas linhas de 10 a 
160. Elas gerenciam a chamada das sub-rotinas, em função da 
situação do programa, do número de erros e acertos. Os módu¬ 
los estão indicados na tabela I. Na tabela II estão discriminadas 
as variáveis, com uma explicação detalhada sobre elas. 


Tabela 1: Os módulos do programa 

linhas 

Rotinas 

500-560 

Finalização 

6000-6820 

Rotina de erros-escolhe aleatoriamente os co¬ 
mentários do “guardião do tempo" sobre os 
erros e conta o número deles 

7000-7820 

Acertos - Conta o número de acertos e esco¬ 
lhe aleatoriamente o comentário do “guardião 
do tempo" 

7999-8490 

Perguntas com as alternativas de resposta 

9000-9980 

Início 
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Tabela II - As Variáveis 

c o 

Armazena quais as perguntas que o aluno acertou 

G $ 

Gabarito 

P 

Gera o número da pergunta 

A $ 

Conterá a resposta do aluno 

CERTAS 

Contabiliza o número de respostas certas 

ERROS 

Contabiliza o número de erros 

1 

Variável do loop vazio usado para pausa 


Em função da variável P, a linha 80 escolhe qual a pergunta 
através da expressão: 

7950+50*P 

O programa é finalizado se o número de erros for maior que 
quatro ou quando o aluno acertar as dez questões. Se acertar 
dez questões, a finalização é positiva (retorno ao século XX). Se 
o número de erros for maior que quatro a finalização é negativa 
(o aluno ficará prisioneiro do ''guardião do tempo" e só sairá de¬ 
pois de conhecer todo o período - um convite para voltar a estu¬ 
dar a matéria). 


A Revolução 

M 

Francesa 

( 1789 / 1799 ) 


Quando estudamos qualquer período da História ele só 
se torna compreensível quando conhecemos alguma coi¬ 
sa do que aconteceu antes. Isso é particularmente notado 
em períodos instáveis como este que estamos mostrando. 

Em particular, o período estudado pode ser considerado 
como àquele do "assentamento da poeira " deixado pelo 
furacão da Revolução Francesa e do terremoto napoleôni- 
co, o qual corresponde ao fim da aristocracia e ao fortale¬ 
cimento da burguesia. 

O primeiro acontecimento importante para a compreen¬ 
são dos fatos aqui mencionados é a Revolução Francesa. 

As causas dessa Revolução estão ligadas ao nascimen¬ 
to do capitalismo. O despotismo dos reis da França, (a di¬ 
nastia Bourbon), principalmente de Luiz XIV, XV e XVI, cau¬ 
sava entraves ao desenvolvimento do capitalismo, em vir¬ 
tude de marginalizar a burguesia das decisões do país, ape¬ 
sar da sua importância econômica. 

Para agravar a situação, o país vivia uma grave crise fi¬ 
nanceira, devido principalmente a uma desordem adminis¬ 
trativa (as rendas do estado se confundiam com as ren¬ 
das do rei), guerras constantes e luxo desmedido da corte. 


Além disso, o desenvolvimento da burguesia esbarrava 
em mais duas coisas: o mercantilismo, com seu excesso 
de regras, taxações, proibições e estrutura feudal, que da¬ 
va privilégios à nobreza e marginalização à burguesia,obri¬ 
gada a pagar impostos que serviam para pagar estes 
privilégios. 

Após uma série de acontecimentos políticos importan¬ 
tes, em 14 de julho a população formada por camponeses 
e artesões apoiada pelos burgueses toma a Bastilha, sím¬ 
bolo do poder absoluto. Em pouco tempo o poder estava 
tomado pelo povo. 

Os ideais filosóficos da Revolução Francesa, em oposi¬ 
ção ao despotismo ao poder Absoluto eram: liberdade, 
igualdade e fraternidade. Estes ideais nortearam a Assem¬ 
bléia Nacional, formada para governar provisoriamente a 
França. A Assembléia durou até 1792, dando lugar à Con¬ 
venção Nacional. Essa Convenção, após o guilhotinamen- 
to de Luiz XVI em 1793, proclamou a primeira Repúplica, 
mas acabou levando ao radicalismo, instalando o Reinado 
do Terror, onde os opositores do grupo no poder eram su¬ 
mariamente julgados e guilhotinados. Esta fase terminou 
com um golpe em 1795, que colocou fim ao Terror e aos 
radicais no poder. 

A nova fase, (do diretório), conduz a alta burguesia ao 
poder. Porém, sem respaldo popular o governo burguês 
torna-se instável, incapaz de conter a crise econômica e 
política. Isso levou a um golpe de estado que colocou uma 
figura forte no poder: Napoleão Bonaparte. 
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CURSOS 


Assembly 6502 
Aula VIII 


O Cometa de 
Halley 


Gustavo Egidio de Almeida 


Na aula desta edição, dissertaremos so¬ 
bre um assunto muito em moda atualmen¬ 
te, o Cometa de Halley, e numa segunda 
parte, sobre o uso de cores no TK-2000 
(assunto prometido na edição anterior). 

Juntamente com esse texto, apresenta¬ 
remos um programa em Basic, utilizando 
uma tabela de figuras e uma sub-rotina es¬ 
pecial, em Linguagem de Máquina, que re¬ 
presenta o som de uma explosão. Esse 
efeito será demonstrado, através de uma 
animação que mostra o que poderia ocor¬ 
rer, caso o cometa se dirigisse de encon¬ 
tro ao planeta Terra. 

Cometa de Halley 

O termo cometa tem origem na palavra 
grega "Kométes", que em latim cometa 
significa objeto dotado de cabeleira. Ele é 
um astro que, por se parecer com uma es¬ 
trela, envolta em uma nuvem de fraca lu¬ 
minosidade, sugere a imagem de uma ca¬ 
beleira. Ao se aproximar do sol, por efeito 
da pressão da radiação, adquire a sua for¬ 
ma típica - uma longa cauda que se esten¬ 
de a milhões de quilômetros. O cometa se 
divide em três partes: núcleo, coma e cau¬ 
das. O núcleo é a região central e de maior 
brilho. A coma, que envolve o núcleo, con¬ 
tém gases e poeira, sua dimensão é da or¬ 
dem de cem quilômetros. Os gases e a 
poeira da coma formarão as caudas - uma 
de poeira, mais larga e encurvada; outra 
gasosa, mais fina e mais retilínea. 

Os cometas, quando se situam mais lon¬ 
ge do sol, podem parecer sem cauda 
(fig.D. 

O fato de que as órbitas dos cometas 
se cruzam com as dos planetas, inclusive 
com a Terra, levanta naturalmente a hipó¬ 
tese de uma colisão entre um cometa e a 
Terra. De acordo com os conhecimentos 
atuais, não se pode descartar inteiramen¬ 
te essa possibilidade (fig.2). No caso da 
Terra cruzar a cauda de um cometa (como 
ocorreu com o Halley em 1910), nossa at¬ 
mosfera não se exporia a riscos de conta¬ 
minações perigosas, dada a pequena 
quantidade de gases cometários. 

Existe ainda uma teoria sobre a extinção 
dos dinossauros provocada pelo impacto 
de um meteoro com a terra (lembrando 


que meteoros apresentam características 
diferentes das dos cometas). Através do 
exame de sedimentos de cerca de 65 mi¬ 
lhões de anos, de regiões como a Dinamar¬ 
ca, Nova Zelândia e Espanha, por pesqui¬ 
sadores da Universidade de Chicago (Illi¬ 
nois, EUA), surgiu a teoria de que o impac¬ 
to de um meteoro com a terra provocou 
uma imensa nuvem de fogo que bloqueou 
a luz do sol com fuligem, durante alguns 
meses, cessando a atividade da fotossín- 
tese, matando muitas plantas, além de di¬ 
nossauros e outros animais consumidores. 
As nuvens de fuligem podem ter esfriado 
a Terra, provocando um efeito semelhan¬ 
te a um "inverno nuclear" (como ocorre¬ 
ria após uma guerra atômica). 

Baseando-se nessa hipótese, apresenta¬ 
remos um programa que, através de uma 
animação simples, demonstra o que ocorre 
após essa colisão. 


Halley (Simulação) 

0 programa a seguir apresenta três par¬ 
tes distintas. 

A primeira em Basic: 

A segunda, tabela de figuras. 

Vamos inicialmente montar nossa tabela 
de figuras indicando ao Basic o endereço 
inicial da tabela. Para isso digite LM entran¬ 
do em MODO monitor. 

@ E8: FC 1D RETURN 

O Basic "procura" a indicação do início 
da tabela nos endereços $E8 e $ E9. 

Nossa tabeía de figuras terá início no en¬ 
dereço $1DFC. 

Para a proteção da tabela de figuras, al¬ 
teremos o "Himem" para: 

@ 73: FC 1D 

Vamos finalmente à tabela: 


@ 

1 DFC: 

02 

00 

06 

00 

08 

00 

55 

00 

4C 

1B 2D 2D 

@ 

3D3E: 

2F 

2D 

15 

3F 

3F 

3F 

37 

86 

2D 

2D 

@ 

2D2D: 

2D 

2D 

CO 

3B 

3F 

F7 

DB 

OD 

OD 

OD 

@ 

0D1 5: 

16 

1 F 

9C 

2E 

3C 

1 F 

FF 

3F 

57 

2D 

@ 

0D1F: 

64 

29 

4D 

09 

05 

00 







Figura 1: Fotografia do Cometa Mrkos 
obtida em agosto de 1957 no 
Observatório do Monte Palo- 
mar. O comprimento do co¬ 
meta é de cem milhões de 
quilômetros. 
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Figura 2 

Órbita do Halley e dos plane¬ 
tas em redor do Sol projetada 
no plano da órbita da Terra. A 
menor órbita no desenho é a 
da Terra e a seguinte, de Mar¬ 
te. Note que os planetas se 
movem no sentido anti- 
horário (ou direto), ao passo 
que o Halley se move no sen¬ 
tido horário (ou retrógrado). 
As órbitas são vistas nesta re¬ 
presentação do pólo da Terra. 



Por último, a terceira em Assembly. 

Esta sub-rotina em Assembly é requisi¬ 
tada pelo programa principal (em Basic) to¬ 
da vez que se desejar ouvir um ruído no 
alto-falante. 

Este ruído pode ser caracterizado como 


uma explosão. 


Listagem Assembly 

@ 1650 - A9 07 

LDA $ 07 

@ 1562 - 85 06 

STA $ 06 

@ 1564 - AO 00 

LDY $ 00 

@ 1568 - A9 09 

LDA $ 09 

@ 1 56A - 85 FE 

STA $ FE 

@ 156C - A9 00 

LDA $ 00 

@ 156F - 8D 30 C0 

STA $ C030 

@ 1572 - EE 30 C0 

INC $ C030 

@ 1575 - CE 30 CO 

DEC $ C030 

@ 1577 - A2 FF 

LDX $ FF 

@ 1578 - CA 

DEX 

@ 1 57A - DO FD 

BNE $ 1577 

@ 1 57C - A2 FF 

LDX $ FF 

@ 1 57D - CA 

DEX 

@ 157F - DO FD 

BNE $ 157C 

@ 1581 - A2 FF 

LDX $ FF 

@ 1582 - CA 

DEX 

@ 1584 - DO FD 

BNE $ 1581 

@ 1586 - B6 21 

LDX $ 21,Y 

@ 1587 - C8 

INY 

@ 1588 - CA 

DEX 

@ 1 58A - DO FD 

BNE $ 1587 

@ 1 58C - B6 21 

LDX $ 21,Y 

@ 158E- CA 

DEX 

@ 1590 - DO FD 

BNE $ 158C 

@ 1593 - B6 21 

LDX $ 21,Y 

@ 1594 - CA 

DEX 

@ 1596 - DO FD 

BNE $ 1591 

@ 1598 - B6 21 

LDX $ 21,Y 

@ 1599 - CA 

DEX 

@ 159B - DO FD 

BNE $ 1596 

@ 159D - C6 FE 

DEC $ FE 

@ 159F - FD 03 

BEQ $ 15A0 

@ 1602 - 4C 6A 15 

JMP $ 1 56A 

@ 1604 - A9 45 

LDA $ 45 

@ 1607 - 20 A8 FC 

JSR $ FCA8 

@ 1609 - C6 06 

DEC $ 06 


@ 161 1 - DO BD BNE $ 1566 

@ 1612-60 RTS 

Bibliografia: * Trechos extraídos do Jor¬ 
nal Folha de São Paulo e do Folheto "Ima¬ 
gens do Cometa de Halley" do Departa¬ 
mento de Astronomia da USP. 
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Listagem Basic 


A MICRO BOARD 
GARANTE. 


Senta que o 
Leão é manso! 


TK-90, Apple , TRS-80, TK-85 


• Cont. Estoque 

• Cont. Crediário 

• Cont. Ord. Serviço 

• Ger. Bco. de Dados 

• Geografia 

• Matemática 

• Contas a Pagar e Receber 

• Mala Direta 

• MB Texto 

• Cad. Clientes 

• Cont. Projeto 

• Inglês 

• Corret. Seguros 


Solicite uma lista descritiva dos 
programas, especificando o seu 
microcomputador. 


Micro Boa rd Ltda. 

Caixa Postal 18968 — SP 
São Paulo — CEP 04699 
Fone: (011) 532-0923 543-9163 
































CURSOS 


Ao darmos prosseguimento à 
aula anterior abordaremos, neste número, 
o emprego de cores em alta-resolução 


0 TK-2000 apresenta no seu modo grá¬ 
fico um total de seis cores disponíveis, pa¬ 
ra o uso em alta-resolução. As seis cores 
são: branco, preto, azul, verde, vermelho 
e ciano. 

Como vimos na aula anterior, para se im¬ 
primir uma "caixa" na tela utilizamos ape¬ 
nas os sete Bits, de cada byte, dos oito dis¬ 
poníveis, não usando, portanto, o oitavo Bit 
- o mais significativo. 



*1 

CVJ 

00 

CVJ 


NÃO 

USADO 





i 

1 








1 

1 

1 
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1 







i 

1 







i 

i 







I 

1 







1 

1 







1 

1 
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Esse oitavo Bit é denominado Bit de cor. 
A sua função é determinar o grupo de co¬ 
res que será representado na tela pelo 
Byte. Os grupos disponíveis são dois: ca¬ 
so o oitavo Bit esteja "setado", em 1, o 
Byte será representado pelo grupo 2 com 
as cores, preto, vermelho, azul e branco. 
Se "ressetado", em 0, será simbolizado pe¬ 
lo grupo 1 com as cores preto, verde, cia¬ 
no e branco. 

Como notamos, tanto o grupo 1 como 
o 2 apresentam as cores branco e preto, 
mantendo assim as suas características 
constantes em ambos os grupos. 

Usando cores na "caixa" 

Vamos agora demonstrar graficamente 
o uso de cores na tela de seu televisor, 
através de exemplos para os grupos 1 e 2. 

Grupo 1 (um) de cores 

Para se obter uma "caixa" colorida na 
tela, com as cores azul, verde, vermelho 
ou ciano, necessitamos construir de mo¬ 


do que os Bits se disponham de maneira 
alternada, em cada uma das 8 micro linhas 
dessa "caixa". Vamos ao exemplo: 



12 4 8 12 4 

BIT DE 
COR 


X 


X 

1 

1 X 

1 


X 

MICRO- 

LINHAS 


X 


X 

I 1 

1 X 

1 


X 


X 


X 

x 


X 


X 


X 

! x 


X 


X 


X 

1 X 


X 


X 


X 

1 X 

1 


X 


X 


X 

1 x 


X 


X 


X 

X 


X 

FIG.4 

REGIÃO IMPRESSA NO VÍDEO 


Note no exemplo que o Bit de cor em ca¬ 
da uma das 8 micro linhas é zero, o que 
significa dizer que a cor a ser impressa faz 
parte do grupo 1 (um) de cores. Como 
os Bits estão dispostos de maneira alter¬ 
nada, obteremos apenas figuras coloridas, 
ou seja, excluiremos automaticamente as 
cores preto e branco. Restam então as co¬ 
res verde e ciano, pertencentes ao grupo 
1. Já que apresentam a mesma disposição 
na caixa, a única característica que as di¬ 
ferenciam é o número que as representam. 

A caixa do exemplo citado apresenta a 
seguinte codificação: 



12 4 8 12 4 


BIT DE 
COR 


X 


X 

1- 

1 X 

1 


X 

#55 

# 55 
#■ 55 

# 55 

# 55 
£ 55 

*55 

#55 


X 


X 

1 x 


X 


X 


X 

X 


X 


X 


X 

! x 


X 


X 


X 

1 X 


X 


X 


X 

1 

1 X 


X 


X 


X 

1 x 


X 


X 


X 

X 


X 

FIG.5 

(♦ -1 5 5) . (4-1*5) 

.. 55 



Ao ser representado na tela esta caixa 
terá a cor verde. Para se obter a cor ciano, 
basta somar a cada byte o número 80 
(oitenta), obtendo-se os seguintes valores: 



1 2 4 8 12 4 


BIT DE 
COR 


X 


X 

1 

1 x 


X 

# A5 

# A5 

# A5 

4 A5 

# A5 

# A5 

# A 5 

# A5 


X 


X 

1 

1 X 

1 


X 


X 


X 

1 

1 X 

1 


X 


X 


X 

1 X 


X 


X 


X 

1 

1 X 


X 


X 


X 

1 

1 x 

1 


X 


X 


X 

i X 

1 


X 


X 


X 

! x 


X 

FIG.6 

(55- 80) 


Este byte apresentará na tela a cor ciano. 

Grupo 2 (dois) 

Todas as observações feitas sobre o gru¬ 
po 1 (um) de cores são válidas neste ca¬ 
so, com a seguinte Ressalva: o bit de cor 
é setado, obtendo-se, portanto, as cores 
do grupo 2. 

As cores obtidas nesse grupo serão o 
azul e o vermelho. 

Como já dissemos, o preto e o branco 
não são obtidos na configuração de bits 
alternados. 

Vamos ao byte de cor azul: 





BIT DE 
COR 



X 


1 

X 1 

X 





X 


1 

X | 

X 




X 


1 

X I 

X 




X 


1 

X 1 

X 




X 


1 

X 1 

X 




X 


1 

X { 

X 




X 


1 

X 1 

1 

X 




X 


X I 

_l_ 

X 


FIG.7 

REGIÃO IMPRESSA NO VIDEO 
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cada vez melhor! 


A revista MICROHOBBY é dedicada aos 
leitores que desejam tirar o máximo proveito* 
de seu micro. 

Muitas dicas, programas e cursos numa lin¬ 
guagem altamente didática. 

Todo mês um mundo de informações valiosas' 
tanto para os principiantes, quanto para os "ex 
perts". 



Faça amigos na INFORMÁTICA 


Na ENG, você encontra 

microcomputadores 

compatíveis 

às principais linhas do 

mercado (Sinclair, MSX, Apple, 

IBM-PC*), compressoras e 

Software. 

Na ENG, a amizade é um fator 
fundamental, onde você 
encontra preços amigos, 
software clube, 
e os seus amigos. 



Faça uma visita aos seus 
amigos na informática 


ENG Computadores — Show Room 
Av. dos Tajurás, 406 
Cidade Jardim (011) 813-7570 
São Paulo - SP - 05670 
























CURSOS 


Note que o bit de cor é setado, implican¬ 
do no uso de cores do grupo 2. 

A codificação deste byte é a seguinte: 


1 

2 

4 

8 1 

2 

4 





X 


x! 

X 


4 2 A 




X 


X l 

X 


4 2 A 




X 


1 

X 1 

X 


#2A 




X 


x! 

X 


< 

CVJ 




X 


—1- 

X 1 

1 

X 


# 2 A 




X 


1 

X 1 

X 


4 2 A 




X 


X ^ 

x ! 

X 


4 2 A 




X 


„ i 

x i 

X 


4 2A 

FIG.8 

(e- 

i 

2;A) 

LE-SE 2A 

2 



Para obtermos uma caixa de cor verme¬ 
lha basta somarmos os valores do exem¬ 
plo anterior com o valor #80. 


1 

2 

4 

8 1 

2 

4 


BIT DE 



X 


X | 

X 


# AA 

COR 



X 


x! 

X 


4 AA 




X 


1 

X | 

1 

X 


# AA 




X 


X 1 

1 

X 


4 AA 




X 


X 1 

1 

X 


4 AA 




X 


w. 1 

x 1 

X 


4 AA 




X 


1 

X 1 

1 

X 


^ AA 




X 


*í 

X 


4 AA 

FIG.9 




(80-2A) 


As caixas para obtenção de cor branca 
ou preta são representadas de uma manei¬ 
ra tal que não respeitam a técnica usada 
de bits alternados. 

Vamos representar um byte de cor 
branca. 



1 

2 

4 

8 

1 

2 

4 




X 

X 

X 

XI 

1 X 

X 

X 

áTF 



X 

X 

X 

- 1 

X 1 

1 - 

1 X 

X 

X 

# 7 F 



X 

X 

X 

1 

X 1 

1 

1 x 

X 

X 

#7F 



X 

X 

X 

1 

X I 

f 1 

1 X 

X 

X 

#7F 



X 

X 

X 

X 1 

1 X 

X 

X 

4 tf 



X 

X 

X 

X 

X 

X 

X 

#7F 



X 

X 

X 

1 

X | 

1 

X 

X 

X 

#7F 



X 

X 

X 

1 

X 1 

X 

X 

X 

#7F 

FIG. 10 










Lembramos que tanto a cor branca co¬ 
mo a cor preta podem ser representadas 
desprezando-se o bit de cor, o que signifi¬ 
ca dizer que tanto faz ser do grupo 1 ou 2. 


Para representar o byte de cor preta, o 
procedimento é o mesmo do usado para 
a tela de seu televisor deve estar no mo¬ 
do inverso, ou colocando-se zero em todos 
os bits da "caixa". 

Programa para representação dos 
bytes 

O programa listado a seguir tem como 
utilidade a de imprimir na tela qualquer um 
dos bytes mostrados como exemplo nes¬ 
te artigo. 


@ $ 

800 

- 20 32 F8 

JSR 

$ 

F832 

$ 

803 

- AD 54 CO 

LDA 

$ 

C054 

$ 

806 

- AD 50 CO 

LDA 

$ 

C050 

$ 

809 

- A9 08 

LDA 

# 

$ 08 

$ 

80B 

- 8D 00 20 

STA 

$ 

2000 

$ 

80E 

- A9 14 

LDA 

# 

$ 14 

$ 

810 - 

8D 00 24 

STA 

$ 

2400 

$ 

813 - 

A9 22 

LOP 

# 

$ 22 

$ 

815 - 

8D 00 28 

STA 

$ 

2800 

$ 

818 - 

A9 3E 

LDA 

# 

$ 3E 

$ 

81A ■ 

8D 00 2C 

STA 

$ 

2000 

$ 

81D - 

A9 22 

LDA 

# 

$ 22 

$ 

81F - 

8D 00 30 

STA 

$ 

3000 

$ 

822 

- A9 22 

LDA 

# 

$ 22 

$ 

824 

- 8D 00 34 

STA 

$ 

3400 

$ 

827 

- A9 22 

LDA 

# 

$ 22 

$ 

829 

- 8D 00 38 

STA 

$ 

3800 

$ 

82C 

- A9 22 

LDA 

# 

$ 22 

$ 

82E - 

8D 00 3C 

STA 

$ 

3C00 

$ 

831 - 

4C 31 08 

JMP 

$ 

0831 


Como sabemos, cada byte é composto 
por oito micro linhas, ou seja, por oito có¬ 
digos hexadecimais. 

Para entrar no programa os oito códigos, 
que formam o byte, siga a seguinte se- 
qüência, inserindo nos endereços abaixo 
os códigos hexadecimais desse byte. 


Endereço 

Códigos 

@ $ 80A - 

Código da primeira 


micro linha do byte 

@ $ 80F - 

segunda micro linha 

@ $ 814 - 

terceira micro linha 

@ $ 819 - 

quarta micro linha 

@ $ 81E - 

quinta micro linha 

@ $ 823 - 

sexta micro linha 

@ $ 828 - 

sétima micro linha 

@ $ 820 - 

oitava micro linha 


Vamos como exemplo imprimir o byte de 
cor vermelha. 

@ $ 80A : # AA 
@ $ 80F : # AA 
@ $ 814 : # AA 
@ $ 819 : # AA 
@ $ 81E : # AA 
@ $ 823 : # AA 
@ $ 828 : # AA 
@ $ 820 : # AA 


Para rodar o "Programa para represen¬ 
tação de bytes" use: @ 800 G 


As fotos publicadas no encarte do In¬ 
formática 85 foram feitas por Israel Tei¬ 
xeira (Edição n.° 24). 


Resposta do Quebra-Cabeça 

A seguir apresentamos a Solução do Quebra-Cabeça Dinorah. Apesar de 
não ser rigorosamente correta (devido ao fato de não usar números genuina¬ 
mente aleatórios), essa solução fornece uma solução bastante aceitável. 


Programa 


Jl ki 

REM *Flí-P5tUD Ü L 5 

TflTISTICP 

2Q 

RR ND 


30 

LET N = 0 


40 

FOR F = 1 TO 5000 


50 

LET R=RND 


50 

LET B = RND 

GOTO 90 

70 

IF R*R*S*B>1 THEN 

30 

LET N=N+1 


30 

N EXT F 

PI E v '■; 4 

100 

PRINT ! O ÜRL0R DE 

★N/5000 
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PARATK 2000COLOR 


A Microsoft tem 120 programas em fitas e disquetes à sua disposição, 
São sistemas aplicativos para acompanhar e agilizar os negócios 
de sua empresa. E também jogos eletrônicos para vocêe sua família 
se divertirem muito. Todos especiais para TK-83, TK-85, 
TK-2000, AppIelEe compatíveis. E todos com a mesma qualidade- - 

dos 100.000 programas já vendidos em todo o Brasil:: - 

'Procure o revendedor Microsoft mais próximo (se não encontrar os 
programas Microsoft escreva para a Caixa Postal 54221 - CEP 01000, 

melhores programas da sua vida J 


■rs. Paulo-SP). Você encontrará os 


ire crrhelhór proqrama. 


flli 

BVÉ 

WtÊÊÊÊÊ 

st* 

1VÜ 

B 

















*Sujeito a alteração sem prévio aviso. 


AMicrodigita 
lança no Brasi 
o micra pessoal 
demaiorsucesso 
no mundo. 

A partir de agora a história dos 
micros pessoais vai ser contada em duas 
partes: antes e depois do TK 90X. 

0 TK 90X é, simplesmente, o único 
micro pessoal lançado no Brasil que 
merece a classificação de "software 
machine": um caso raro de micro que 
pela sua facilidade de uso, grandes 


recursos e preço acessível recebeu a 
atenção dos criadores de programas e 
periféricos em todo o mundo. 

Para você ter uma idéia, existem 



revistas de usuários disponíveis para ele 
internacionalmente. 

E aqui o TK 90X já sai com mais de 
100 programas, enquanto outros estão 
em fase final de desenvolvimento para 
lhe dar mais opções para trabalhar, 
aprender ou se divertir que com qualquer 
outro micro. 

0 TK 90X tem duas versões de 
memória (de 16 ou 48 K), imagem de 
alta resolução gráfica com 8 cores, 
carregamento rápido de programas 
(controlável pelo próprio monitor), som 
pela TV, letras maiusculas e minúsculas 
e ainda uma exclusividade: acentuação 
em português. 

Faça o seu programa: peça já uma 
demonstração do novo TK 90X. 
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